Visual Basic

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

public class Main_Class
public _CO as Double
    Public Property CO() As Double
        Get
            Return _CO
        End Get
        Set(ByVal value As Double)
            _CO = value
        End Set
    End Property
End Class

public class SubClass
    Public ReadOnly Property CO1() As Double
        Get
            Dim uc As New Main_Class
            Return uc._CO
        End Get
    End Property
End Class