Infrared Schematic Diagram

FLOOR PLAN

EXERCISE NO. 3

Private Sub VScrollGENA3_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelR.Caption = "Red: " & VScrollGENA3.Value
End Sub

Private Sub VScrollGENA2_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelG.Caption = "Green: " & VScrollGENA2.Value
End Sub

Private Sub VScrollGENA1_Change()
Picture1.BackColor = RGB(VScrollGENA3.Value, VScrollGENA2.Value, VScrollGENA1.Value)
LabelB.Caption = "Blue: " & VScrollGENA1.Value
End Sub

EXERCISE NO. 2

Dim RGBValue As Integer

Private Sub cmdgena1_Click()
Coins1.Visible = False

lblgena2.Caption = Int(Rnd * 10)
lblgena3.Caption = Int(Rnd * 10)
lblgena4.Caption = Int(Rnd * 10)

If (lblgena2.Caption = 7) Or (lblgena3.Caption = 7) Or (lblgena4.Caption = 7) Then
Coins1.Visible = True
Beep
End If
End Sub

Private Sub cmdgena2_Click()
End
End Sub

Private Sub mnuAuthor_Click()
frmgena2.Show
End Sub

Private Sub mnuBlue_Click()
Frmgena1.BackColor = RGB(10, 10, 150)
End Sub


Private Sub mnuGreen_Click()
Frmgena1.BackColor = RGB(10, 150, 10)
End Sub


Private Sub mnuOrange_Click()
Frmgena1.BackColor = RGB(255, 121, 0)
End Sub

Private Sub mnuPink_Click()
Frmgena1.BackColor = RGB(255, 201, 255)
End Sub

Private Sub mnuRed_Click()
Frmgena1.BackColor = RGB(255, 0, 0)
End Sub

Private Sub mnuViolet_Click()
Frmgena1.BackColor = RGB(99, 0, 86)
End Sub

Private Sub mnuYellow_Click()
Frmgena1.BackColor = RGB(255, 255, 0)
End Sub

EXERCISE NO. 1

Private Sub cmdcan_Click()

End
End Sub

Private Sub cmdClick_Click()
Coins1.Visible = False

lblg1.Caption = Int(Rnd * 10)
lblg2.Caption = Int(Rnd * 10)
lblg3.Caption = Int(Rnd * 10)

If (lblg1.Caption = 7) Or (lblg2 = 7) Or (lblg3 = 7) Then
Coins1.Visible = True
Beep
End If

End Sub

MORE THAN YOU KNOW

I'd like to tell you how much I love you, and I hope you know that I do I wish That the words I speak so gently to you could be heard by you heart with the same meaning and the same soft feeling of love that they carry from deep within me.

For more than you know... I love so many things about you. More than just the way you hold me and the warmth you give me; I enjoy sharing life with you. I enjoy the way we balance each other out, how we share the good times and support each other through the tears.

I enjoy the knowledge that we'll make it through whatever life brings with courage and with love through the years.

More than you know... and more then I can ever say, I feel a wonderful thankfulness in my heart.....just for you. And I want you to remember, though my thoughts don't aways convey and my feelings don't always show, I love you, and I always will... more then you know.

---Gena C. Marayan---