'Ausblenden
Private Sub SendToTray()
                Me.Opacity = 0
                Me.ShowInTaskbar = False
                Me.mnuRestoreWindow.Enabled = True
End Sub
 
'Einblenden
Private Sub mnuRestoreWindow_Click(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles mnuRestoreWindow.Click
 
        Me.Opacity = 1
        Me.ShowInTaskbar = True
        Me.mnuRestoreWindow.Enabled = False 
        Me.Refresh()
 
    End Sub