用一个文本框控件，和一个命令按钮，当往文本框输入的是00：00（小时，分钟）时间格式时，点按钮会出现一个msg显示格式正确，反之显示格式错误。

或者是编写的一个输入时间小时，分钟（下拉列表那种，象注册信息填生日那种，00：00，小时是从0到23，分钟是从0到59）的控件也行。

谢谢了！

可以用format()函数判text中的时间是否正确，用来确定是否显示提示框

Private Sub command1_click()
Dim str As String
str = Format(Text1.Text, "hh:mm")
If IsDate(str) Then
MsgBox "时间格式显示正确"
End If

End Sub