Visual Basic

for each iForm as Form in XXX
'do someting
return iForm
next

<?xml version="1.0"?>
<Names>
  <Name>
    <First_Name>FN 1</First_Name>
    <Middle_Name>MN 1</Middle_Name>
    <Last_Name>LN 1</Last_Name>
    <Country_Code>001</Country_Code>
    <Area_Code>
    </Area_Code>
    <Phone_No>
    </Phone_No>
    <Email_Address>mail@email.com</Email_Address>
    <Address>Address 1</Address>
  </Name>
  <Name ID="2">
    <First_Name>FN2</First_Name>
    <Middle_Name>Mn2</Middle_Name>
    <Last_Name>Ln2</Last_Name>
    <Country_Code>02</Country_Code>
    <Area_Code>002</Area_Code>
    <Phone_No>0002</Phone_No>
    <Email_Address>email@mail2.com</Email_Address>
    <Address>
    </Address>
  </Name>
  </Names>

Function Edit() As Boolean
        Try
            'Dim xd As New XmlDocument()
            'xd.Load(App_Path)
            'Dim nod As XmlNodeList = xd.SelectNodes("//First_Name[. = '" & txtFName.Text & "']" & "/parent::node()/First_Name")

            'If nod IsNot Nothing Then
            '    For Each node In nod
            '        'nod.Item(0).ChildNodes(0).InnerText = txtMName.Text.Trim
            '        'nod.Item(0).ChildNodes(1).InnerText = txtLName.Text.Trim
            '    Next

            'End If

            Dim xd As New XmlDocument()
            xd.Load(App_Path)
            Dim nod As XmlNode = xd.SelectSingleNode("//First_Name[. = '" & txtFName.Text & "']" & "/parent::node()/First_Name")
            If nod IsNot Nothing Then
                nod.ChildNodes(0).InnerText = "33"
                nod.ChildNodes(1).InnerText = "333"
            End If
 
            Edit = True
        Catch ex As Exception
 
            MessageBox.Show(ex.Message)
            ctlStatus.Text = "Current State : " & ex.Message.ToString
            Return False
        End Try
        Return Edit
    End Function

Imports System 
Imports System.Collections 
Imports System.Configuration 
Imports System.Data 
Imports System.Web 
Imports System.Web.Security 
Imports System.Web.UI 
Imports System.Web.UI.HtmlControls 
Imports System.Web.UI.WebControls 
Imports System.Web.UI.WebControls.WebParts 
Imports Tawammar.CustomControls 
Partial Class Filter 
Inherits System.Web.UI.Page 
Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) 
DataFilter2.DataSource = SqlDataSource2 
DataFilter2.DataColumns = GridView1.Columns 
DataFilter2.FilterSessionID = "Default.aspx" 
DataFilter2.OnFilterAdded += (DataFilter2.OnFilterAdded + New 
DataFilter.RefreshDataGridView(DataFilter2_OnFilterAdded)) 
End Sub 
Protected Overrides Sub OnLoadComplete(ByVal e As EventArgs) 
If Not Page.IsPostBack Then 
DataFilter2.BeginFilter() 
DataFilter2.AddNewFilter("Emp_ID", "Emp_Name", "Dav") 
End If 
End Sub 

Private Sub DataFilter2_OnFilterAdded() 
Try 
DataFilter2.FilterSessionID = "Default.aspx" 
DataFilter2.FilterDataSource() 
GridView1.DataBind() 
Catch e As Exception 

End Try 
End Sub

DataFilter2.OnFilterAdded += new DataFilter.RefreshDataGridView(DataFilter2_OnFilterAdded);

Private Sub UpdateProgress(ByVal value As Integer, ByVal labelText As String)
    If StatusStrip.InvokeRequired Then
	StatusStrip.Invoke(ProgressUpdater, New Object() {value, labelText})      <---- ERROR
    Else
        If value > StatusProgressMain.Maximum Then value = 100
        StatusProgressMain.Value = value
	StatusLabelMain.Text = String.Format("{0} Records", mDVdata.Count)
    End If
End Sub