Dim a As String
Private Sub Form_Click()
Form1.Print a
End Sub
Private Sub Form_Load()
a = "这是窗体事件"
End Sub
Dim a As Integer
Private Sub Form_Click()
a = a + 1
Cls
Print "这是第" & a & "次说爱你"
End Sub
Dim a As Integer
Private Sub Form_Click()
form2.show 1/0
End Sub