Untitled

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim blOK As Boolean = False
        If txtName.Text.Trim() = String.Empty Then
            epName.SetError(txtName, "You cannot leave this blank.")
            blOK = False
        End If
        If txtURL.Text.Trim() = String.Empty Then
            epURL.SetError(txtURL, "You cannot laeve this blank.")
            blOK = False
        End If

        If blOK Then
            ' Save the data
        End If
    End Sub