vb1.bas

由浅入深介绍

Attribute VB_Name = "Module1"
Option Explicit

Dim a
Sub main()
a = MsgBox("现在正在运行VB程序!!")
If a = 1 Then
Unload Me
End If

End Sub