module1.bas

visual basic课程设计案例精编

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