资料杂谈

Text), "00") & "." & Format$(Val(txtSecs.Text), "00") & ".0000")
End Sub

Private Sub txtHours_KeyUp(KeyCode As Integer, Shift As Integer)
    Call ConvertTime
End Sub

Private Sub txtMins_Change()
    Call ConvertTime
End Sub

Private Sub txtSecs_Change()
    Call ConvertTime
End Sub