在VB中如何实现一个按钮按下最小化和最大化

[Dickson]

在VB中如何实现一个按钮按下最小化和最大化

[acev]

Private Sub Command1_Click()
Me.WindowState = 1

End Sub

Private Sub Command2_Click()
Me.WindowState = 2
End Sub

[libralibra]

Me.WindowState = 1 'min
Me.WindowState = 2 'max