Visual Basic

<StructLayout(LayoutKind.Sequential)> _
    Public Structure passedStruct
        <MarshalAs(UnmanagedType.U4)> Dim IntNumber As UInt32
        <MarshalAs(UnmanagedType.U4)> Dim IntAnother As UInt32
        <MarshalAs(UnmanagedType.U4)> Dim ptr2Integer As UInt32
    End Structure

Dim receivedStruct As passedStruct = Marshal.PtrToStructure(ptr, GetType(passedStruct))

extern "C" __declspec(dllexport) void ChangeStruct(struct MyStruct * pMyStruct)
{

	pMyStruct->IntNumber += 23;

}

struct MyStruct {
	unsigned int IntNumber;
	unsigned int IntAnother;
	unsigned int IntYetAnother;
};

Dim bytTeller As Byte
Dim objdtsProducten As New dtsProducten
Dim objtblProductenTA As New dtsProductenTableAdapters.tblProductenTableAdapter
Dim dtrProduct As dtsProducten.tblProductenRow

objtblProductenTA.Fill(objdtsProducten.tblProducten)

For Each dtrProduct In objdtsProducten.tblProducten

    Dim ptbKnop As New PictureBox

    ptbKnop.Name = dtrProduct.ProductID
    ptbKnop.Text = dtrProduct.ProductNaam
    ptbKnop.Size = New Size(80, 40)
    ptbKnop.Location = New Point((bytTeller Mod 4) * 90, (bytTeller \ 4) * 50)

    AddHandler ptbKnop.Click, AddressOf KnopGeklikt
    Me.Controls.Add(ptbKnop)
    bytTeller += 1
Next

With OpenFileDialog1
    .CheckFileExists = True
    .ShowReadOnly = False
    .Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
    .FilterIndex = 2
    If .ShowDialog = DialogResult.OK Then
        ' Load the specified file into a PictureBox control.
        Dog.Image = Image.FromFile(.FileName)
    End If
End With

Public Class DBconnector


    Private _dbConnection As OleDbConnection
    Private _dbCommand As OleDbCommand
    Private _dbDataReader As OleDbDataReader
    Private _dbDataAdapter As OleDbDataAdapter
    Private _dbTransaction As OleDbTransaction
    'Private _dbADODBConnection As ADODB.


    Public Sub New(ByVal cs As String)

        _dbConnection = New OleDbConnection(cs)
        _dbCommand = _dbConnection.CreateCommand

    End Sub

"Provider=Microsoft.Jet.OLEDB.4.0;" 
 & "Data Source=" & TextEditPath.Text