当我单击窗体时在窗体输出aaa
我再次单击窗体时清除aaa
这个过程有可能出现吗？

.....

借助其他东西，是有可能的，比如借助公共变量，或者利用LABLE输出也行

Public i As Integer

Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Print "aaaa"
Else
Cls
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub

如果要实现下面的功能呢 恐怕不行了吧
Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Timer1.Enabled = Ture
Else
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub


Private Sub Timer1_Timer()
Print "aaa"
End Sub

[[it] 本帖最后由 菜鸟VB 于 2008-6-13 01:25 编辑 [/it]]

当我单击的时候输出aaa
再次单击的时候停止aaa的输出

你說的是顯示出來吧可以用打印啊

Public i As Integer

Private Sub Form_Click()
i = i + 1
If i Mod 2 <> 0 Then
Print "aaaa"
End If
End Sub

Private Sub Form_Load()
i = 0
End Sub

这个功能你不是已经实现了吗？