VB在应用程序启动时运行代码

Module Module1
    Sub Main()
        ' 启动代码
        Console.WriteLine("应用程序已启动")
        ' 其他代码
    End Sub
End Module

Imports Microsoft.VisualBasic.ApplicationServices

Namespace My
    Partial Friend Class MyApplication
        Private Sub MyApplication_Startup(sender As Object, e As StartupEventArgs) Handles Me.Startup
            ' 启动代码
            MsgBox("应用程序已启动")
            ' 其他代码
        End Sub
    End Class
End Namespace

Public Class MainForm
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 启动代码
        MessageBox.Show("应用程序已启动")
        ' 其他代码
    End Sub
End Class