test 1234

[admin]

this is a test forum

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'contactLastName
        'PrintDomBegin()
        'Exit Sub
        Dim xt As DataTable
        xt = (fnGetForm(False, "mainFrame", AccessFormUsingConstants.UsingName, "newCustomerForm", True, bOK, "contactLastName", "contactFirstName", "businessAddress"))
        'bOK = (fnGetForm(False, "mainFrame", AccessFormUsingConstants.UsingName, "newCustomerForm", True, "contactLastName", Me.TextBox1.Text, "contactFirstName", Me.TextBox2.Text))
        'MessageBox.Show("we are here")
        Dim i As Integer
        Try
            For i = 0 To xt.Rows.Count - 1
                MsgBox(xt.Rows(i).Item(1).ToString)
 
 
            Next
        Catch ex As Exception
        End Try
        MessageBox.Show(Me.WebBrowser1.Document.Url.ToString)
 
 
 
    End Sub