' Feel Free to Use this Code 
' I m a member of Code Project.com .Also a1vbcode.com
'  So pls if u have any query u can feel Free to ask me
'   I will try my level best . As ur Query can give some new idea to me also. 
'
'  Any commments Or Bugs in this project . Pls report me at 
'  pradeepbishnoi@rediffmail.com or pradeepbishnoi@gmail.com
'  pradeepbishnoi2010@yahoo.com
'  Marwar Engineering College & Research Center , Jodhpur , Rajasthan , India
'
'
'
Public Class Form1
    Dim state As Boolean = True
    Dim d As Integer
    Private Sub EjectTRAYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EjectTRAYToolStripMenuItem.Click
        CDDoorOpen()
        state = False
    End Sub

    Private Sub InsertTRAYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertTRAYToolStripMenuItem.Click
        CDDoorClose()
        state = True
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        If state = True Then
            CDDoorOpen()
            state = False
        Else
            CDDoorClose()
            state = True
        End If
    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        Me.Timer1.Enabled = True
        'd = 0
    End Sub

    Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Deactivate
        Me.Timer1.Enabled = False
        d = 0
        Me.Hide()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Me.WindowState = FormWindowState.Minimized
        Me.Hide()
        d = 0
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Me.Show()
        'Me.WindowState = FormWindowState.Normal

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Me.WindowState = FormWindowState.Minimized
        Me.Hide()
        d = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Select Case d
            Case 0
                Label1.Text = "P"
                Label1.ForeColor = Color.AliceBlue
                d = d + 2
            Case 2
                Label1.Text = "Pr"
                Label1.ForeColor = Color.Aqua
                d = d + 2
            Case 4
                Label1.Text = "Pra"
                Label1.ForeColor = Color.MintCream
                d = d + 2
            Case 6
                Label1.Text = "Prad"
                Label1.ForeColor = Color.Pink
                d = d + 2
            Case 8
                Label1.Text = "Prade"
                Label1.ForeColor = Color.BlueViolet
                d = d + 2
            Case 10
                Label1.Text = "Pradee"
                Label1.ForeColor = Color.BurlyWood
                d = d + 2
            Case 12
                Label1.Text = "Pradeep"
                Label1.ForeColor = Color.Chocolate
                d = d + 2
            Case 14
                Label1.Text = "Pradeep "
                Label1.ForeColor = Color.CornflowerBlue
                d = d + 2
            Case 16
                d = d + 2
                Label1.ForeColor = Color.DarkGoldenrod
                Label1.Text = "Pradeep B"
            Case 18
                d = d + 2
                Label1.Text = "Pradeep Bi"
                Label1.ForeColor = Color.DarkKhaki
            Case 20
                d = d + 2
                Label1.Text = "Pradeep Bis"
                Label1.ForeColor = Color.DarkOrange
            Case 22
                d = d + 2
                Label1.Text = "Pradeep Bish"
                Label1.ForeColor = Color.DarkSlateBlue
            Case 24
                d = d + 2
                Label1.Text = "Pradeep Bishn"
                Label1.ForeColor = Color.Firebrick
            Case 26
                d = d + 2
                Label1.Text = "Pradeep Bishno"
                Label1.ForeColor = Color.DeepSkyBlue
            Case 28
                d = d + 2
                Label1.Text = "Pradeep Bishnoi"
                Label1.ForeColor = Color.HotPink
            Case 30
                d = d + 2
                Label1.Text = "Pradeep Bishnoi"
                Label1.ForeColor = Color.MediumSeaGreen
            Case 32
                d = 0
        End Select

    End Sub


End Class