Sub NotifyIcon_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim ni As NotifyIcon = CType(sender, NotifyIcon)
        ni.Icon = Nothing
        Me.Show()
        Me.WindowState = FormWindowState.Normal
    End Sub