'-----------------------------------
    ' structure declarations
    ' xl event
    <StructLayout(LayoutKind.Sequential, Pack:=1)> Structure s_xlEvent
        Public tag As Byte
        Public chanIndex As Byte
        Public transID As Short
        Public porthandle As Short
        Public reserved As Short
        Public timestamp As UInt64
        <FieldOffset(0)> Public tagdata_can_msg As s_xl_can_msg
        <FieldOffset(0)> Public tagdata_chipstate As s_xl_chipstate
        <FieldOffset(0)> Public tagdata_lin_msg As s_xl_lin_msg_api
        <FieldOffset(0)> Public tagdata_sync_pulse As s_xl_sync_pulse
        <FieldOffset(0)> Public tagdata_daio_data As s_xl_daio_data
        <FieldOffset(0)> Public tagdata_transceiver As
s_xl_transceiver
    End Structure
    Structure s_xl_can_msg
        Public id As UInt32
        Public flags As Short
        Public dlc As Short
        Public res1 As UInt64
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> Public
data As Byte()
        Public res2 As UInt64
    End Structure
 ' function to fill/set struct with array - this is successful

    Public Declare Function xlCanTransmit Lib "vxlapi.dll" (ByVal
PortHandle As UInt32, ByVal accessmask As UInt64, ByRef messageCount
As UInt16, <MarshalAs(UnmanagedType.LPArray)> ByVal pMessages As
s_xlEvent()) As Byte

 ' function to read frome struct with array - this is the problem

Public Declare Function xlReceive Lib "vxlapi.dll" (ByVal PortHandle
As UInt32, ByRef pEventCount As UInt16,
<MarshalAs(UnmanagedType.LPArray)> ByRef pMessages As s_xlEvent()) As
Byte

        Dim dgc As DataGridCell
        dgc.RowNumber = 1
        dgc.ColumnNumber = 1

        DataGrid1.CurrentCell = dgc

point = Me.DataGrid1.PointToClient(Cursor.Position)
Me.ContextMenu1.Show(Me.DataGrid1, point)

    Private Structure POINTAPI
        Public x As Integer
        Public y As Integer
    End Structure
    Dim pt As POINTAPI

    Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As
POINTAPI) As Integer

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
        GetCursorPos(pt)
        Debug.WriteLine(pt.x)
        Debug.WriteLine(pt.y)
    End Sub

Private Sub SaveNested()
    Dim TNode As Node            
    Set TNode = TreeView1.Nodes(1).Root
    
    While Not TNode Is Nothing
	If TNode.children > 0 Then
            AddChildNodes(TNode)
        End If
        Set TNode = TNode.Next
    Wend    
End Sub

Private Sub AddChildNodes(ByVal TNode As Node)
    Dim childNode As Node
    Dim i As Integer
    Set childNode = TNode.Child

    For i = 0 To TNode.children - 1        
        If childNode.children > 0 Then
            AddChildNodes(childNode)
        End If
        Set childNode = childNode.Next
    Next
End Sub

private sub looplvl1()
    for each tnode in tree.nodes
            messagebox.show(tnode.text)
            loopother(tnode)
    next
end sub

private sub loopother(PNode As Node  )
 Dim TNode As Node
    for each tnode in Pnode.nodes
            messagebox.show(tnode.text)

    next

end sub

\\RecurseNodes(Me.TreeView1.Nodes)
..
..
..

Private Function RecurseNodes(ByVal Node As TreeNodeCollection)
    For Each tn As TreeNode In Node
        If tn.Text = "Foo" Then
            Me.TreeView1.SelectedNode = tn
            Return
        End If
        RecurseNodes(tn.Nodes)
    Next tn
End Function
///

dim i as integer

For i = 0 to 8
    MyRecordset.Fields(i).Value = "Test"     <---------- Error thrown here
next i
This does :

dim i as integer

For i = 0 to 8
    MyRecordset.Fields(CInt(i)).Value = "Test"
next i

<?xml version="1.0"?>
<par>
     <do>12345678901234</do>
     <ca>1234567890123456</ca>
     <c1>Mr. Billing Billy</c1>
     <c2>Miss. Janette Jackson</c2>
     <sc>TREC</sc>
     <ch>Augmentation</ch>
</par>

Option Explicit
Option Strict

Imports System
Imports System.IO
Imports System.Xml

Public Class Sample
    
    Public Shared Sub Main()
        'Create the XmlDocument.
        Dim doc As New XmlDocument()
        doc.LoadXml(("<book genre='novel' ISBN='1-861001-57-5'>" & _
                    "<title>Pride And Prejudice</title>" & _
                    "</book>"))
        
        'Save the document to a file.
        doc.Save("data.xml")
    End Sub 'Main
End Class 'Sample

Protected Enum serviceEnum

    UNDEFINED

    LOGIN

    TIME

    INDEX

End Enum

<?xml version="1.0" encoding="utf-8" ?>

    <company id="ABC">

        <serviceIDS>

            <serviceID>UNDEFINED</serviceID>

            <serviceID>LOGIN</serviceID>

            <serviceID>TIME</serviceID>

            <serviceID>INDEX</serviceID>

        </serviceIDS>

    </company>

Dim cM as CurrencyManager
cM = BindingContext(myDataSet, "myDataTable")
rowIndex = cM.Position

    Dim ts As DataGridTableStyle
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles MyBase.Load
'fill data into dataset11
        Me.OleDbDataAdapter1.Fill(Me.DataSet11)
'add a new DataGridTableStyle
        ts = New DataGridTableStyle
        ts.MappingName = Me.DataSet11.Employees.TableName
        Me.DataGrid1.TableStyles.Add(ts)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 
System.EventArgs) Handles Button1.Click
'get the Address column and set its readonly property to true so that we 
are not able to modify the Address column.
        Dim cs As DataGridColumnStyle = ts.GridColumnStyles("Address")
        cs.ReadOnly = True
    End Sub

        lstAmend.DataSource = dvRPA
        lstAmend.DisplayMember = "NUM_AMENDMENT"

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnSave.Click
        Dim rowNewRow As DataRow =
dstConstituent.ConstituentData.NewRow

        Try
            'rowNewRow("FileNumber") =
txtAutoNumber.Text
            'rowNewRow("PersonIntake") =
cmbIntakePerson.Text
            'rowNewRow("Category") =
cmbCategory.Text
            'rowNewRow("LastName") =
txtLastName.Text
            'rowNewRow("FirstName") =
txtFirstName.Text
            'rowNewRow("MiddleInitial") =
txtMiddleName.Text
            'rowNewRow("Title") = txtTitle.Text
            'rowNewRow("Organization") =
txtOrganization.Text
            'rowNewRow("PrimaryPhone") =
txtPriPhone.Text
            'rowNewRow("PrimaryExt") =
txtPriExt.Text
            'rowNewRow("PrimaryMobile") =
txtPriMobile.Text
            'rowNewRow("PrimaryPager") =
txtPriPager.Text
            'rowNewRow("PrimaryFax") =
txtPriFax.Text
            'rowNewRow("PrimaryAddress") =
txtPriAddress.Text
            'rowNewRow("PrimaryCity") =
txtPriCity.Text
            'rowNewRow("PrimaryState") =
txtPriState.Text
            'rowNewRow("PrimaryZip") =
txtPriZip.Text
            'rowNewRow("OtherPhone") =
txtOtherPhone.Text
            'rowNewRow("OtherExt") =
txtOtherExt.Text
            'rowNewRow("OtherAddress") =
txtOtherAddress.Text
            'rowNewRow("OtherCity") =
txtOtherCity.Text
            'rowNewRow("OtherState") =
txtOtherState.Text
            'rowNewRow("OtherZip") =
txtOtherZip.Text
            'rowNewRow("Request") = txtRequest.Text
            'rowNewRow("Action") = txtAction.Text

           
dstConstituent.Tables(0).Rows.Add(rowNewRow)

            btnNext.Enabled = True
            btnPrevious.Enabled = True
            btnFirst.Enabled = True
            btnLast.Enabled = True
            btnAdd.Enabled = True
            btnSave.Enabled = False
            btnCancel.Enabled = False
            dadConstituent.Update(dstConstituent)

            dstConstituent.Clear()
            dadConstituent.Fill(dstConstituent,
            '  lblPosition.Text = "Record 1 of " &
(dstConstituent.Tables(0).Rows.Count)

        Catch
            MessageBox.Show("Record not added" &
& " - " & Err.Description & " -- "
& Err.HelpContext)
        End Try

    End Sub