Как то я увидел на форуме вопрос, как сделать TextBox, чтобы при вводе времени символ ":" вводился самостоятельно. Сделать это можно следующим образом. Поставьте PictureBox с белым фоном. Поставьте в него 3 TextBox со свойствами BorderStyle=0, Text="", MaxLength=2. Поставьте между ними два лэйбла с белым фоном и Caption=":". Введите следующий код:

Private Sub Text1_Change()
If Len(Text1.Text) = 2 Then Text2.SetFocus
End Sub

Private Sub Text2_Change()
If Len(Text2.Text) = 2 Then Text3.SetFocus
End Sub

Private Function GetTime() As String
GetTime = Text1.Text + ":" + Text2.Text + ":" + Text3.Text
End Function