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