Start Your vb.net app from Windows Notification area

Start Your vb.net app from Windows Notification area

Imports System.Net.Mail
Public Class Form2
    Dim y As Integer
    Dim x As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Hide()
        Me.Notif.Visible = True
        draw()
        Me.ShowInTaskbar = False

        Timer3.Enabled = True
        Me.Hide()
        ' Timer1_Tick(Nothing, Nothing)
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Show()
        Me.Top = Me.Top - 10
        If Me.Top < y - Me.Height Then
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Timer2.Enabled = True
        'Hide()
        'Me.Notif.Visible = True
        'Me.ShowInTaskbar = False

        'Timer3.Enabled = True
        'Me.Hide()
        '' Timer1_Tick(Nothing, Nothing)
        'Me.WindowState = FormWindowState.Minimized
    End Sub

    Sub draw()
        Dim sx As Integer
        Dim sy As Integer
        sx = My.Computer.Screen.Bounds.Width
        sy = My.Computer.Screen.Bounds.Height
        x = sx - Me.Width
        y = sy - 0
        Me.Left = x - 0
        Me.Top = y
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Me.Top = Me.Top + 10
        Do Until Me.Top > 768
            Me.Top = Me.Top + 10
        Loop
        If Me.Top > y Then
            Timer2.Enabled = False
            ' Timer2.Enabled = True
        End If
        If Me.Top = 728 Then
            Timer2.Enabled = False
            Hide()
            Me.Top = 728
            Exit Sub
        End If
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Notif_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Notif.MouseDoubleClick
        Timer1.Enabled = True
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Me.Show()
        Timer3.Enabled = False
        ' fhide()
        If Timer3.Enabled = False Then
            Timer1.Enabled = True
        End If
    End Sub
End Class