mcfloat made by my names.. c:

VB movie cashier..

Form1

Private Sub cancel_Click()

txtname.Text = ""

txtpass.Text = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub login_Click()

If txtname.Text = "LASPINAS" And txtpass.Text = "laspinas" Then

a = MsgBox("Password Validate", vbInformation, "Password")

Form1.Hide

Form2.Show

Else

a = m

txtname.Text = ""

txtpass.Text = ""

a = MsgBox("INVALID PASSWORD", vbInformation, "INVALID PASSWORD")

End If

End Sub

Form2

Private Sub cancel_Click()

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = False

txtmove.Text = ""

pricetxt.Text = ""

totaltxt.Text = ""

nme.Text = ""

cashtxt.Text = ""

changetxt.Text = ""

cmbselction = ""

date = ""

time = ""

End Sub

Private Sub cmdpen_Click()

Timer1.Enabled = True

End Sub

Private Sub Compute_Click()

changetxt.Text = Val(cashtxt.Text) - Val(totaltxt.Text)

End Sub

Private Sub five_Click()

If five = True Then

totaltxt.Text = Val(5) * Val(pricetxt.Text)

End If

End Sub

Private Sub Form_Load()

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

imgfirst.Visible = "0"

imgsecond.Visible = "0"

imgthird.Visible = "0"

imgforth.Visible = "0"

imgfifth.Visible = "0"

imgsixth.Visible = "0"

End Sub

Private Sub four_Click()

If four = True Then

totaltxt.Text = Val(4) * Val(pricetxt.Text)

End If

End Sub

Private Sub menublack_Click()

txtmove.ForeColor = vbgrey

pricetxt.ForeColor = vbgrey

totaltxt.ForeColor = vbgrey

nme.ForeColor = vbgrey

cashtxt.ForeColor = vbgrey

changetxt.ForeColor = vbgrey

End Sub

Private Sub left_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub menublue_Click()

txtmove.ForeColor = vbBlue

pricetxt.ForeColor = vbBlue

totaltxt.ForeColor = vbBlue

nme.ForeColor = vbBlue

cashtxt.ForeColor = vbBlue

changetxt.ForeColor = vbBlue

End Sub

Private Sub menubold_Click()

txtmove.FontBold = True

pricetxt.FontBold = True

totaltxt.FontBold = True

nme.FontBold = True

cashtxt.FontBold = True

changetxt.FontBold = True

txtmove.FontItalic = False

pricetxt.FontItalic = False

totaltxt.FontItalic = False

nme.FontItalic = False

cashtxt.FontItalic = False

changetxt.FontItalic = False

txtmove.FontUnderline = False

pricetxt.FontUnderline = False

totaltxt.FontUnderline = False

nme.FontUnderline = False

cashtxt.FontUnderline = False

changetxt.FontUnderline = False

End Sub

Private Sub menudate_Click()

date = DateValue(Now)

End Sub

Private Sub cmbselction_Click()

If cmbselction = "You Are Never To Old" Then

txtmove.Text = "You Are Never To Old"

imgfirst.Visible = True

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = False

pricetxt.Text = "500"

cashtxt.Text = ""

totaltxt.Text = ""

changetxt.Text = ""

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

ElseIf cmbselction = "50 First Dates" Then

txtmove.Text = "50 First Dates"

imgfirst.Visible = False

imgsecond.Visible = True

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = False

pricetxt.Text = "650"

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

ElseIf cmbselction = "The Blind Side" Then

txtmove.Text = "The Blind Side"

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = True

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = False

pricetxt.Text = "800"

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

End If

If cmbselction = "The Notebook" Then

txtmove.Text = "The Notebook"

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = True

imgfifth.Visible = False

imgsixth.Visible = False

pricetxt.Text = "650"

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

ElseIf cmbselction = "Dear John" Then

txtmove.Text = "Dear John"

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = True

imgsixth.Visible = False

pricetxt.Text = "550"

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

End If

If cmbselction = "Black Swan" Then

txtmove.Text = "Black Swan"

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = True

pricetxt.Text = "1500"

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

End If

End Sub

Private Sub menuexit_Click()

End

End Sub

Private Sub menugray_Click()

txtmove.ForeColor = vbgray

pricetxt.ForeColor = vbgray

totaltxt.ForeColor = vbgray

nmet.ForeColor = vbgray

cashtxt.ForeColor = vbgray

changetxt.ForeColor = vbgray

End Sub

Private Sub menugreen_Click()

txtmove.ForeColor = vbGreen

pricetxt.ForeColor = vbGreen

totaltxt.ForeColor = vbGreen

nme.ForeColor = vbGreen

cashtxt.ForeColor = vbGreen

changetxt.ForeColor = vbGreen

End Sub

Private Sub menugrey_Click()

End Sub

Private Sub menuitalic_Click()

txtmove.FontBold = False

pricetxt.FontBold = False

totaltxt.FontBold = False

nme.FontBold = False

cashtxt.FontBold = False

changetxt.FontBold = False

txtmove.FontItalic = True

pricetxt.FontItalic = True

totaltxt.FontItalic = True

nme.FontItalic = True

cashtxt.FontItalic = True

changetxt.FontItalic = True

txtmove.FontUnderline = False

pricetxt.FontUnderline = False

totaltxt.FontUnderline = False

nme.FontUnderline = False

cashtxt.FontUnderline = False

changetxt.FontUnderline = False

End Sub

Private Sub menunew_Click()

one.Value = False

two.Value = False

three.Value = False

four.Value = False

five.Value = False

six.Value = False

imgfirst.Visible = False

imgsecond.Visible = False

imgthird.Visible = False

imgforth.Visible = False

imgfifth.Visible = False

imgsixth.Visible = False

txtmove.Text = ""

pricetxt.Text = ""

totaltxt.Text = ""

nme.Text = ""

cashtxt.Text = ""

changetxt.Text = ""

cmbselction = ""

date = ""

time = ""

End Sub

Private Sub menuorange_Click()

txtmove.ForeColor = vborange

pricetxt.ForeColor = vborange

totaltxt.ForeColor = vborange

nme.ForeColor = vborange

cashtxt.ForeColor = vborange

changetxt.ForeColor = vborange

End Sub

Private Sub menutime_Click()

time = TimeValue(Now)

End Sub

Private Sub menuunderline_Click()

txtmove.FontBold = False

pricetxt.FontBold = False

totaltxt.FontBold = False

nme.FontBold = False

cashtxt.FontBold = False

changetxt.FontBold = False

txtmove.FontItalic = False

pricetxt.FontItalic = False

totaltxt.FontItalic = False

nme.FontItalic = False

cashtxt.FontItalic = False

changetxt.FontItalic = False

txtmove.FontUnderline = True

pricetxt.FontUnderline = True

totaltxt.FontUnderline = True

nme.FontUnderline = True

cashtxt.FontUnderline = True

changetxt.FontUnderline = True

End Sub

Private Sub menuviolet_Click()

txtmove.ForeColor = vbviolet

pricetxt.ForeColor = vbviolet

totaltxt.ForeColor = vbviolet

nme.ForeColor = vbviolet

cashtxt.ForeColor = vbviolet

changetxt.ForeColor = vbviolet

End Sub

Private Sub menuyellow_Click()

txtmove.ForeColor = vbYellow

pricetxt.ForeColor = vbYellow

totaltxt.ForeColor = vbYellow

nme.ForeColor = vbYellow

cashtxt.ForeColor = vbYellow

changetxt.ForeColor = vbYellow

End Sub

Private Sub one_Click()

If one = True Then

totaltxt.Text = Val(1) * Val(pricetxt.Text)

End If

End Sub

Private Sub six_Click()

If six = True Then

totaltxt.Text = Val(6) * Val(pricetxt.Text)

End If

End Sub

Private Sub three_Click()

If three = True Then

totaltxt.Text = Val(3) * Val(pricetxt.Text)

End If

End Sub

Private Sub Timer1_Timer()

frmleft.Left = frmleft.Left - 250

right.Left = right.Left + 250

If frmleft.Left = -10000 Then

If right.Left = 10000 Then

End If

End If

End Sub

Private Sub two_Click()

If two = True Then

totaltxt.Text = Val(2) * Val(pricetxt.Text)

End If

End Sub

On this day, God wants you to know

... that you are blessed. You may think you have challenges, but you have so many blessings. Sometimes it takes only a moment of conscious effort to recognize those blessings. Once you focus on the gifts instead of the problems, your whole perspective will change and you will see blessings everywhere.

On this day, God wants you to know

that the weight you carry on your shoulders is much too heavy for one human being.

Give some of that weight where it belongs, - to God,

and have faith that what happens is for the best,

whether you understand it or not.

ateneo.. c:

me.. hazelmae.. and mayeye..

tresmarias.. c:

empiitrii..

design for his t-shirt.. c:

On this day, God wants you to know

There are times when no matter how hard you try, you just cannot accept yourself as you are.

During such times, think of how you look to God's eyes.

In God's eyes, there is no judgment, there is only acceptance.

God sees your light when all that you can see are your shadows.

God loves you more than anyone could ever love you as you really are.

On this day, God wants you to know

... that it's time you let go. Yes, of course, you want to control so everything happens in just the way you want it.

But at the end of the day, we control nothing,

- it's all in God's hands,

- has always been, and will always be.

So, do what you can, and then let go,

and let God handle the rest.

VB 6.. Flight Planner..

Form 1..

Private Sub cmdsched_Click()

Form1.Hide

Form2.Show

End Sub

Form 2..

Private Sub Aisle_Click()

Form3.Text5.Text = "Aisle"

End Sub

Private Sub cmdcancel_Click()

txtpass.Text = ""

txtadd.Text = ""

txtcon.Text = ""

optnIloilo.Value = False

optnboracay.Value = False

Cebu.Value = False

Davao.Value = False

Bohol.Value = False

cagayan.Value = False

Window.Value = False

Middle.Value = False

Aisle.Value = False

Sixam.Value = False

Nineam.Value = False

Twelve.Value = False

Three.Value = False

Sixpm.Value = False

Ninepm.Value = False

txtfare.Text = ""

Text5.Text = ""

Text6.Text = ""

txttick.Text = ""

End Sub

Private Sub Com5_Click()

Form2.Hide

Form3.Show

End Sub

Private Sub Bohol_Click()

txtfare.Text = "4700"

txttick.Text = "00009"

Form3.txtfare.Text = "Bohol"

End Sub

Private Sub cagayan_Click()

txtfare.Text = "3350"

txttick.Text = "000011"

Form3.txtfare.Text = "cagayan"

End Sub

Private Sub Cebu_Click()

txtfare.Text = "5500"

txttick.Text = "00005"

Form3.txtfare.Text = "Cebu"

End Sub

Private Sub cmdcomp_Click()

Text6.Text = Val(Text5.Text) - Val(txtfare.Text)

End Sub

Private Sub cmdget_Click()

Form2.Hide

Form3.Show

End Sub

Private Sub cmdxit_Click()

End

End Sub

Private Sub Com3_Click()

Text6.Text = Val(Text5.Text) - Val(txtfare.Text)

End Sub

Private Sub Com6_Click()

txtpass.Text = ""

txtadd.Text = ""

txtcon.Text = ""

Iloilo.Value = False

Leyte.Value = False

Cebu.Value = False

Davao.Value = False

Bohol.Value = False

cagayan.Value = False

Window.Value = False

Middle.Value = False

Aisle.Value = False

Sixam.Value = False

Nineam.Value = False

Twelve.Value = False

Three.Value = False

Sixpm.Value = False

Ninepm.Value = False

txtfare.Text = ""

Text5.Text = ""

Text6.Text = ""

txttick.Text = ""

End Sub

Private Sub Com7_Click()

End

End Sub

Private Sub Davao_Click()

txtfare.Text = "3300"

txttick.Text = "00007"

Form3.txtfare.Text = "Davao"

End Sub

Private Sub optnIloilo_Click()

txtfare.Text = "3500"

txttick.Text = "00001"

Form3.txtfare.Text = "Ilo-Ilo"

End Sub

Private Sub L7_Click()

End Sub

Private Sub optnboracay_Click()

txtfare.Text = "4500"

txttick.Text = "00003"

Form3.txtfare.Text = "boracay"

End Sub

Private Sub Middle_Click()

Form3.Text5.Text = "Middle"

End Sub

Private Sub Nineam_Click()

Form3.txttick.Text = "9:00AM"

End Sub

Private Sub Ninepm_Click()

Form3.txttick.Text = "9:00PM"

End Sub

Private Sub Sixam_Click()

Form3.txttick.Text = "6:00AM"

End Sub

Private Sub optn06_Click()

Form3.txttick.Text = "6:00PM"

End Sub

Private Sub optn09_Click()

Form3.txttick.Text = "9:00PM"

End Sub

Private Sub optn12_Click()

Form3.txttick.Text = "12:00PM"

End Sub

Private Sub optn3_Click()

Form3.txttick.Text = "3:00PM"

End Sub

Private Sub optn6_Click()

Form3.txttick.Text = "6:00AM"

End Sub

Private Sub optn9_Click()

Form3.txttick.Text = "9:00AM"

End Sub

Private Sub Sixpm_Click()

Form3.txttick.Text = "6:00PM"

End Sub

Private Sub Text1_Change()

Form3.Text1.Text = Form2.Text1.Text

End Sub

Private Sub Text2_Change()

Form3.Text2.Text = Form2.Text2.Text

End Sub

Private Sub Text3_Change()

Form3.Text3.Text = Form2.Text3.Text

End Sub

Private Sub Text4_Change()

End Sub

Private Sub Text7_Change()

Form3.Text6.Text = Form2.Text7.Text

End Sub

Private Sub Three_Click()

Form3.txttick.Text = "3:00PM"

End Sub

Private Sub Twelve_Click()

Form3.txttick.Text = "12:00PM"

End Sub

Private Sub txtadd_Change()

Form3.txtadd.Text = Form2.txtadd.Text

End Sub

Private Sub txtcon_Change()

Form3.txtcon.Text = Form2.txtcon.Text

End Sub

Private Sub txtpass_Change()

Form3.txtpass.Text = Form2.txtpass.Text

End Sub

Private Sub txttick_Change()

Form3.Text6.Text = Form2.txttick.Text

End Sub

Private Sub Window_Click()

Form3.Text5.Text = "Window"

End Sub

Form 3..

Private Sub Command1_Click()

End

End Sub