2005-08-23 特に意味はない Public Class Main Private aaa As String 'メイン Public Shared Sub Main() Dim objMain As New Main objMain.Run() End Sub 'コンストラクタ Private Sub New() End Sub '実行 Private Sub Run() Dim frm As New Form1 frm.ShowDialog() End Sub End Class