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