Private Sub Command1_Click()
Form1.WindowState = 0
End SubPrivate Sub Command2_Click()
Form1.WindowState = 1
End SubPrivate Sub Command3_Click()
Form1.WindowState = 2
End Sub
Form1.WindowState = 0
End SubPrivate Sub Command2_Click()
Form1.WindowState = 1
End SubPrivate Sub Command3_Click()
Form1.WindowState = 2
End Sub
'vbNormal 0 (Default) Normal.
'vbMinimized 1 Minimized (minimized to an icon) 最小化
'vbMaximized 2 Maximized (enlarged to maximum size)最大化