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

[SheKeL_C$]

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Time = TimeValue(Text1.Text & ":" & Text2.Text & ":00")
End Sub

Private Sub Form_Load()
Text1.Text = 0
Text2.Text = 0
End Sub

Private Sub VScroll1_Change()
Text1 = VScroll1.Value
End Sub

Private Sub VScroll2_Change()
Text2 = VScroll2.Value
End Sub


PD: l teienes q añadir otra barra d desplazmiento, una para la ora y otra para los minutos