Protected Sub Rdbtnltimeformat_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Rdbtnltimeformat.SelectedIndexChanged
Me.Openpanel()
End Sub
Sub Openpanel()
If Rdbtnltimeformat.SelectedValue = "I" Then
Multitimeformat.SetActiveView(Vtf1)
ElseIf Rdbtnltimeformat.SelectedValue = "M" Then
Multitimeformat.SetActiveView(Vtf2)
ElseIf Rdbtnltimeformat.SelectedValue = "D" Then
Multitimeformat.SetActiveView(Vtf3)
Else : Multitimeformat.SetActiveView(Vtf1)
End If
End Sub