Private Sub ZeigenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ZeigenToolStripMenuItem.Click
        If Me.Visible = True Then
            Me.Visible = False
            Me.ZeigenToolStripMenuItem.Text = "Zeigen"
        Else
            Me.Visible = True
            Me.ZeigenToolStripMenuItem.Text = "Verstecken"
        End If
    End Sub

MfG Markus K?hler