VB 窗体最大化，最小化，拖拽事件

Private Sub Form_Resize()
    If Me.WindowState = 1 Then
        MsgBox "窗体最小化"
    End If
    If Me.WindowState = 2 Then
        MsgBox "窗体最大化"
    End If
    MsgBox Me.Width & "窗体大小变化事件"
End Sub