VB单击Command1控件时，显示窗体2，那再一次单击Command1控件时，卸载窗体2，请问代码该怎样写？请高手指教，在线等...

已解决：
Dim blnClicked As Boolean
Private Sub Command1_Click()
blnClicked = Not blnClicked
If (blnClicked) Then
Form2.Show
Form2.Top = Form1.Top + Form1.Height
Form2.Left = Form1.Left
Else
Unload Form2
End If
End Sub

[ 本帖最后由 yeliangsl 于 2010-10-11 04:48 编辑 ]

收到的鲜花

• Artless 于 2010-10-11 23:57 送鲜花  10朵   附言：支持公开结果。