Public Class Form1
    Dim NormalCaption As String = "NORMAL"
    Dim MinimizedCaption As String = "MINIMIZED"
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
 
        If Me.WindowState = FormWindowState.Minimized Then
            Me.Text = MinimizedCaption
        Else
            Me.Text = NormalCaption
        End If
 
    End Sub
End Class

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)