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 EstadoEnd Sub