使用Sub Main启动程序

Module Main
Sub Main()
Dim F1 As FrmMain = New FrmMain
Application.Run(F1)
End Sub
End Module

OR

Module Main
Sub Main()
Dim F1 As FrmMain = New FrmMain
F1.ShowDialog()
End Sub
End Module