Окажите поддержку в написании программы

    Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        Me.Close()
    End Sub
 
 
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Me.WindowState = FormWindowState.Minimized
        Me.ShowInTaskbar = False
    End Sub

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click
        End
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        If Me.Visible Then
            Me.Hide()
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
        Else
            Me.ShowInTaskbar = True
            Me.Show()
            Me.WindowState = FormWindowState.Maximized
        End If
    End Sub

    Private Sub mnuHappy_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles mnuHappy.Click
        Me.NotifyIcon1.Icon = My.Resources.Resource1.n
        Me.Icon = My.Resources.Resource1.n
    End Sub
 
    Private Sub mnuSad_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles mnuSad.Click
        Me.NotifyIcon1.Icon = My.Resources.Resource1.p
        Me.Icon = My.Resources.Resource1.p
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Me.NotifyIcon1.Visible Then
            Me.NotifyIcon1.Visible = False
            sender.text = "Показать"
        Else
            Me.NotifyIcon1.Visible = True
            sender.text = "Скрыть"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.NotifyIcon1.Icon = My.Resources.Resource1.n
        Me.Icon = My.Resources.Resource1.n
    End Sub

    Private Sub Notifyicon1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseMove
        MessageBox.Show("move")
 
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged 
        If CheckBox1.Checked = True Then 
            ShowTipBall = True 
        Else 
            ShowTipBall = False 
        End If 
    End Sub 
 
    Private Sub NotifyIcon1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseMove 
        If ShowTipBall Then 
            NotifyIcon1.BalloonTipText = "sdfsdf" 
            NotifyIcon1.ShowBalloonTip(1000, NotifyIcon1.BalloonTipText, NotifyIcon1.BalloonTipText, vbNull) 
        End If 
    End Sub