Try this
Private Sub ClearControls(ByVal frm As Form)
Dim ctrl As Control
For Each ctrl In frm.Controls
If ctrl.GetType Is GetType(TextBox) Then
ctrl.Text = ""
ElseIf ctrl.GetType Is GetType(RadioButton) Then
Dim radbut As RadioButton = ctrl
radbut.Checked = False
ElseIf ctrl.GetType Is GetType(DateTimePicker) Then
Dim datetimepicker1 As DateTimePicker = ctrl
datetimepicker1.ResetText()
ElseIf ctrl.GetType Is GetType(GroupBox) Then
ClearGroupedControls(ctrl)
End If
Next
End Sub
Private Sub ClearGroupedControls(ByVal gctrl As GroupBox)
For Each ctrl In gctrl.Controls
If ctrl.GetType Is GetType(RadioButton) Then
Dim radbut As RadioButton = ctrl
radbut.Checked = False
End If
Next
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ClearControls(Me)
End Sub