See if the following code works for you-
Protected Sub Button1_Click(sender As Object, e As System.EventArgs)
Dim tp As MKB.TimePicker.TimeSelector
tp = DirectCast(DirectCast(sender, _
Control).NamingContainer.FindControl("TimeSelector3"), MKB.TimePicker.TimeSelector)
Dim required As DateTime = tp.Date
End Sub