Modificar HORA Y MINUTOS al estilo WINDOWS

[renga73]

Hola, quiero modificar la hora y los minutos al estilo el reloj de windows.
Osea tengo 2 textbox y 1 VScroll1, como se muestra aca:


Y cuando me posiciono en el cuadro de la hora modifico la hora con el VScroll1, y cuando me posiciona en los minutos modifico los minutos, siempre respetando los intervalos obviamente

[piojoman]

Fijate con esto... lo unico que hice fue "anotar" quien tiene el foco del Textbox que se esta parado, los intervalos lo establece el VScroll, lo unico que le falta pero lo deje por obviedad, es que si se llegara al minuto 60 automaticamente se vuelva a 0 y lo mismo para la hora, es solo un if.

Dim Foco As Boolean
Private Sub Form_Load()
Text1.Text = Hour(Now)
Text2.Text = Minute(Now)
End Sub
Private Sub Text1_GotFocus()
Foco = True
End Sub
Private Sub Text2_GotFocus()
Foco = False
End Sub
Private Sub VScroll1_Change()
If Foco = True Then
VScroll1.Max = 0
VScroll1.Min = 23
Text1.Text = VScroll1.Value
Else
VScroll1.Max = 0
VScroll1.Min = 59
Text2.Text = VScroll1.Value
End If
End Sub