Private Sub Form_Resize()
    Dim Estado As String
    
    Select Case Me.WindowState
        Case 0
            Estado = "Normal"
        Case 1
            Estado = "Minimizado"
        Case 2
            Estado = "Maximizado"
    End Select
    
    MsgBox Estado
End Sub