Dim dt_time As Date
 
Dim dtp As New DateTimePicker With {.Value = CDate("13.3.2012 9:05")}
 
Dim tbo_time As New TextBox With {.Text = "12:30"}
 
 
If Date.TryParse(tbo_time.Text, dt_time) Then
 
   dtp.Value = dtp.Value.Date.AddTicks(dt_time.TimeOfDay.Ticks)
 
End If