设定TextBox格式为时间

如题：做一个TextBox显示为时间格式，例如：Text1.Value = Format(Now(), "HH:MM:SS")，但是此Text1的内容可以随意更改，是否可以有限制条件？请写一下代码，谢了！

TextBox1.Text = Time

锁定属性：
TextBox1.Locked = True

例如：

Private Sub TextBox1_Change()
    X = VBA.InputBox("请输入管理员密码：", "验证")

    With TextBox1
        
        Select Case X
            Case ""
                Exit Sub
        
            Case "123"
                .Text = Time
                Exit Sub
            Case Else
                MsgBox "密码错误!!", 16, "提示"
            .Text = ""
            .SetFocus
            Exit Sub
        End Select
        
    End With

End Sub

Text1.Enabled = False  被禁用
Textbox1.Locked = True 只读属性

[ 本帖最后由 CTFuture 于 2011-8-9 00:58 编辑 ]