' 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