module1.bas

来自「visual basic课程设计案例精编」· BAS 代码 · 共 16 行

Attribute VB_Name = "Module1"
Option Explicit
'定义公共变量
Public Color As Long
Public Mode As Integer
Public Performance As Integer

Sub Main()
    If InStr(Command, "/s") > 0 Then
        Form1.Show
    ElseIf InStr(Command, "/c") > 0 Then
        Form2.Show
    End If
End Sub