Private Sub MinimierenToolStripMenuItem_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles MinimierenToolStripMenuItem.Click
 
        MinimierenToolStripMenuItem.Checked = True
 
 
        If Me.MinimierenToolStripMenuItem.Checked = True Then
            Dim f As New Form1 
            f.WindowState = FormWindowState.Minimized  
            f.Show()
        End If