Private? Sub? add_Click()
Me.subtrack.Enabled? =? wrong
Me.ride.Enabled? =? wrong
Me.remove.Enabled? =? wrong
My label? =? 1
Me. Text 2. Set focus
End? submarine
Private? Sub? Command 1_Click()
Choice? Case? My label
Case? 1
Me. SMS 3. SMS? =? Val (me. Text 1)? +? Val (me. Text 2)
Case? 2
Me. SMS 3. SMS? =? Val (me. Text 1)? -? Val (me. Text 2)
Case? three
Me. SMS 3. SMS? =? Val (me. Text 1)? *? Val (me. Text 2)
Case? four
Me. SMS 3. SMS? =? Val (me. Text 1)? /? Val (me. Text 2)
End? choose
End? submarine
Private? Sub? Command2_Click()
Me. Text 1? =? ""
Me. Text2? =? ""
Me. Text3? =? ""
My label? =? 0
Me.subtrack.Enabled? =? real
Me.ride.Enabled? =? real
Me.add.Enabled? =? real
Me.remove.Enabled? =? real
Me. Text 1。 SetFocus
End? submarine
Private? Sub? Form_Load()
Me. Text 1? =? ""
Me. Text2? =? ""
Me. Text3? =? ""
End? submarine
Private? Sub? remove_Click()
Me.subtrack.Enabled? =? wrong
Me.ride.Enabled? =? wrong
Me.add.Enabled? =? wrong
My label? =? four
Me. Text 2. Set focus
End? submarine
Private? Sub? ride_Click()
Me.subtrack.Enabled? =? wrong
Me.add.Enabled? =? wrong
Me.remove.Enabled? =? wrong
My label? =? three
Me. Text 2. Set focus
End? submarine
Private? Sub? subtrack_Click()
Me.add.Enabled? =? wrong
Me.ride.Enabled? =? wrong
Me.remove.Enabled? =? wrong
My label? =? 2
Me. Text 2. Set focus
End? submarine