大神们看看，可不可用一个Command控制Timers实现，输出一行一行，不要这么繁琐！！！！！！！！！！！！！！！！！！！！
Private Sub Command1_Click()
Label1.Caption = "00000"
Label2.Caption = " 0"
Label3.Caption = " 0"
Label4.Caption = " 0"
Label5.Caption = " 0"
Label6.Caption = "00000"
End Sub
Private Sub Command2_Click()
Label7.Caption = " 0 0 0"
Label8.Caption = " 0 0"
Label9.Caption = "0 0 "
Label10.Caption = "0 0"
Label11.Caption = " 0 0"
Label12.Caption = " 0 0 0"
End Sub
Private Sub Command3_Click()
Label13.Caption = " 0 0 "
Label14.Caption = " 0 0 "
Label15.Caption = " 0 0 "
Label16.Caption = " 0 0 "
Label17.Caption = " 0 0 "
Label18.Caption = " 000 "
End Sub
Private Sub Command4_Click()
Label19.Caption = "0 0 0"
Label20.Caption = "0"
Label21.Caption = "0 0 0"
Label22.Caption = "0"
Label23.Caption = "0"
Label24.Caption = "0 0 0 0"
End Sub
CurrentX = lOutX: Print " 0 0 "
CurrentX = lOutX: Print " 0 0 "
CurrentX = lOutX: Print " 0 0 "
CurrentX = lOutX: Print " 0 0 "
CurrentX = lOutX: Print " 000 "
Case 4: lOutX = 3600
CurrentX = lOutX: Print "0 0 0"
CurrentX = lOutX: Print "0"
CurrentX = lOutX: Print "0 0 0"
CurrentX = lOutX: Print "0"
CurrentX = lOutX: Print "0"
CurrentX = lOutX: Print "0 0 0 0"
Case 5: mlStep = 0
Me.Cls
End Select
End Sub
