Private Sub txtHora_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
Call Seleccionar(txtHora(Index))
End Sub
Private Sub txtHora_Click(Index As Integer)
Call Seleccionar(txtHora(Index))
End Sub
Private Sub txtHora_GotFocus(Index As Integer)
Call Seleccionar(txtHora(Index))
End Sub
Private Sub txtJornada_Click()
Call Seleccionar(txtJornada)
End Sub
Private Sub txtJornada_GotFocus()
Call Seleccionar(txtJornada)
End Sub
Private Sub txtJornada_KeyUp(KeyCode As Integer, Shift As Integer)
Call Seleccionar(txtJornada)
End Sub
Private Sub Seleccionar(Texto As TextBox)
With Texto
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub