Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Req As New RegularExpressionValidator
        Dim txtname As TextBox
        txtname = New TextBox
        txtname.ID = "txtName"
        form1.Controls.Add(txtname)

        Dim lblName As Label
        lblName = New Label
        lblName.Text = "Enter Name"
        Req.ControlToValidate = "txtName"
        Req.ErrorMessage = "Enter only Numbers"
        Req.ValidationExpression = "[0-9]*"
        Req.SetFocusOnError = True
        form1.Controls.Add(Req)
    End Sub
    
End Class