"INFRARED SCHEMATIC DIAGRAM"

FLOOR PLAN

My Home.

There is a child inside my heart tonight

No one can see that child but you

If I hold on to you too tight, you understand

You hold me too

You are the one who reaches through the dark

When I'm afraid, you warm the air

And, when I close my eyes to sleep

You are my peace, you are my prayer

You are my home

You make me strong

And in this world of strangers

I belong to someone

You are all I know

You're all I have

I won't let go

Others may leave, but you will still be there

Touching the tears that fill my eyes

When I am lost, you are my light

You are the love that never dies

You are my home

You make me strong

And in this world of strangers

I belong to someoneYou are all I know

You're all I haveI need you so

I will not walk away from you!

I will not let you go!

You're the only home I'll ever know

You are my homeYou make me strong

And in this world of strangers

I belong to someone

You are all I know

You're all I have

I need you so

I won't let go

You are my home

-youHanNe

Activity 1

Code:

Private Sub Image2_Click()
Coins.Visible = False

lbl1.Caption = Int(Rnd * 10)
lbl2.Caption = Int(Rnd * 10)
lbl3.Caption = Int(Rnd * 10)

If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.Caption = 7) Then
Coins.Visible = True
Beep

End If
End Sub

Private Sub mnuAuthor_Click()
frmauthor.Show
Me.Hide
End Sub

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

Private Sub mnuClose_Click()
End
End Sub

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

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

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

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

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

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

Activity II : Click To Win WIth Backgrounds.

Codes:

Dim RGBValue As Integer

Private Sub Image1_Click()

End

End Sub

Private Sub Image2_Click()

Coins.Visible = False

lbl1.Caption = Int(Rnd * 10)

lbl2.Caption = Int(Rnd * 10)

lbl3.Caption = Int(Rnd * 10)

If (lbl1.Caption = 7) Or (lbl2.Caption = 7) Or (lbl3.Caption = 7) Then

Coins.Visible = True

MsgBox "yOu wOn", vbInformation, "cOnGraTiOnz!..."

Beep

Else

MsgBox "bEtTer LucK nExt tiMe", vbExclamation, "tRy agAin..."

End If

End Sub

Private Sub mnuAuthor_Click()

frmauthor.Show

frmlucky7.Hide

End Sub

Private Sub mnuBlue_Click()

frmlucky7.BackColor = RGB(10, 10, 150)

End Sub

Private Sub mnuClose_Click()

End

End Sub

Private Sub mnuGreen_Click()

frmlucky7.BackColor = RGB(10, 150, 10)

End Sub

Private Sub mnuOrange_Click()

frmlucky7.BackColor = RGB(255, 121, 0)

End Sub

Private Sub mnuPink_Click()

frmlucky7.BackColor = RGB(255, 201, 255)

End Sub

Private Sub mnuRed_Click()

frmlucky7.BackColor = RGB(255, 0, 0)

End Sub

Private Sub mnuViolet_Click()

frmlucky7.BackColor = RGB(99, 0, 86)

End Sub

Private Sub mnuYellow_Click()

frmlucky7.BackColor = RGB(255, 255, 0)

End Sub

Code For Author:

Private Sub Image2_Click()

End

End Sub

Private Sub Label4_Click()

frmlucky7.Show

Me.Hide

End Sub

CODES:

Private Sub VScrollRed_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label1.Caption = "Red: " & VScrollRed.Value

End Sub

Private Sub VScrollGreen_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label2.Caption = "Green: " & VScrollGreen.Value

End Sub

Private Sub VScrollBlue_Change()

Picture1.BackColor = RGB(VScrollRed.Value, VScrollGreen.Value, VScrollBlue.Value)

Label3.Caption = "Blue: " & VScrollBlue.Value

End Sub