'----- MAIN.VB
Private Sub Main_Load () handles Mybase.Load 
For i = 1 To 2
            childForm(i) = New Simulation()
            childForm(i).Name = "Simulation " & i
            childForm(i).Text = "Simulation " & i
            childForm(i).MdiParent = Main
            childForm(i).Show()
Next i
end sub

'----- Simulation
 
Private Sub Form_Close () handles Mybase.Closed
   Timer.Enabled = false
   Timer.Stop()
end sub
 
 
Private Sub Form_Load () handles Mybase.Load 
   Timer.Intervall =1000
   Timer.Enabled = true
   Timer.Start()
end sub
 
Private Sub Timer_Tick () Handles Timer.Tick
   If Not Backgroundworker.Isbusy Then
      backgroundworker.RunWorkerAsync()
   end if
End sub
 
Private Sub BackgroundWorker_DoWork () 
 Datenbank_auslesen("SQL_Anweisung", Tabelle)
End Sub
 
Private Function Datenbank_auslesen(ID as Integer, Tabelle as DAO.Recordset) As _
  Integer
        tabelle.Index = "ID"
        tabelle.Seek("=", ID)
 
        If tabelle.NoMatch Then
            Return 0
        Else
            Return tabelle("ID").Value
        End If
End Function