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