在VB.net中的main方法的用法，总是提示“在“StartUp”中找不到任何具有合适签名的可访问“Main”方法。”

[cclover]

我在写完一个程序后，加上main方法后就无法生成，总是提示“在“StartUp”（我写的一个模块）中找不到任何具有合适签名的可访问“Main”方法。”，请高人赐教！！，在下跪谢！！！
以下是代码：
Imports System.IO.File
Imports System
Imports base
Imports RTFunctions
Imports System.Windows.Forms

Public Class A
Sub Main()
Dim currentDate As String = Date.Today
If currentDate.Length < 9 Then
MessageBox.Show("请在控制面板－区域选项 中，将短日期格式改为 'yyyy-mm-dd'！", Global.Title, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End
End If

Global.ComputerName = SystemInformation.ComputerName()
'读取连接字符串
Dim FilePath As String = Application.StartupPath.ToString + "\LinkStr.txt"
If System.IO.File.Exists(FilePath) = True Then
Dim FS As New System.IO.FileStream(FilePath, IO.FileMode.Open)
Dim SW As New System.IO.StreamReader(FS)
Global.LinkStr = SW.ReadToEnd
FS.Close()

'测试连接字符串
Try
Dim Ds As New DataSet()
Dim objConn As New SqlClient.SqlConnection(Global.LinkStr)
Dim Da As New SqlClient.SqlDataAdapter("select * from 用户组", objConn)
Da.Fill(Ds, "table")
Catch err As SqlClient.SqlException
Dim LoginDB As New frmLoginDB()
LoginDB.Show()
Exit Sub
End Try

Dim Login As New frmLogin()
Login.Show()
Exit Sub
Else
Dim LoginDB As New frmLoginDB()
LoginDB.Show()
End If
End Sub
End Class

[jun_01]

yes!

[ludonglei]

yes!

[realwolf]

定义public shared sub main()

[oo渣渣oo]

sub main不能写在Class里.应该写在Module里