Public FrmForm As Form1Public i As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenSet FrmForm = New Form1FrmForm.Showi = i + 1Select Case iCase 1
FrmForm.Label1.Caption = 123
Case 2FrmForm.Label1.Caption = 234Case 3
i = 0End SelectEnd IfEnd Sub
Dim i As Integer
'声明全局变量i'------------------------------------------------------Private Sub Form_Load()
'窗体1的载入事件过程i = 1
'给全局变量i赋初始值1End Sub'------------------------------------------------------Private Sub Form_Click()
'单击窗体1的事件过程Form1.AutoRedraw = TrueForm2.AutoRedraw = True'设置两个窗体的自动重绘属性为True，保证输出的字符不会消失If i = 1 ThenForm1.Print "123"'当i=1时，在窗体1上输出“123”ElseIf i = 2 Then'当i=2时，在显示窗体2，并窗体2上输出“234”Form2.ShowForm2.Print "234"End Ifi = i + 1'每次单击窗体时，全局变量i的值增加1End Sub
添加一个模块Module1写上如下代码：Public i, j, k在Form1中写上如下代码：Public Frm As Form1Private Sub Form_Click()Set Frm = New Form1i = i + 1j = i + 1k = j + 1Print i & j & k Frm.ShowEnd Sub
