已解决:
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
已解决:
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