Modificar HORA Y MINUTOS al estilo WINDOWS

[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