Guest User

Untitled

a guest
May 19th, 2018
131
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.58 KB | None | 0 0
  1. Public Class Form1
  2.  
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         NotifyIcon1.Visible = True
  5.         Me.ShowInTaskbar = False
  6.         Me.WindowState = FormWindowState.Minimized
  7.     End Sub
  8.  
  9.     Private Sub NotifyIcon1_MouseDoubClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
  10.         NotifyIcon1.Visible = False
  11.         Me.WindowState = FormWindowState.Normal
  12.         Me.ShowInTaskbar = True
  13.     End Sub
  14. End Class
  15.  
  16. JMAX Kussak Ra'afat :)
Add Comment
Please, Sign In to add comment