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
