Someone
public text v1 · immutablePrivate Sub txtFname_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles txtFname.TextChanged
If txtFname.Text <> "" Then
If IsNumeric(txtFname.Text) = False Then
lblSname.Visible = True
txtSname.Visible = True
Else
MsgBox("Text Only Field")
txtFname.Text = ""
lblDOB.Visible = False
txtDOB.Visible = False
End If
Else
lblDOB.Visible = False
txtDOB.Visible = False
End If
End Sub