Private Sub Form_Load()
 
    ' Setz ein DataGrid auf deine Form und gib ihm den Index 0 (in den 
    ' Eigenschaften)
    DataGrid1(0).Visible = False ' Grid 0 verstecken wir fangen bei 1 an.
 
    Dim i As Integer
    Dim iIndex As Integer
 
    For i = 1 To 30
        iIndex = AddGrid                                            ' Ein neues 
        ' Grid erstellen (aktuellen Index in die Variable iIndex schreiben)
        DataGrid1(iIndex).Caption = "Ich bin Grid nummer " & i      ' Titel des 
        ' Grids
        DataGrid1(iIndex).Move i * 150, i * 70, 2000, 2000          ' Datagrid 
        ' Positionieren
        DataGrid1(iIndex).ZOrder 1                                  ' In den 
        ' Hintergrund bringen
    Next i
 
End Sub
 
Public Function AddGrid(Optional bVisible As Boolean = True) As Integer
 
    Dim intCurIndex As Integer
        intCurIndex = DataGrid1.Count
 
        Load DataGrid1(intCurIndex)                 'Lädt das neue Grid
        DataGrid1(intCurIndex).Visible = bVisible   'Zeigt das neue Grid an
 
    ' Gibt der Index des gerade erstellten Datagrids zurück
    AddGrid = intCurIndex
 
End Function
 
' Die Ereignisbehandlung
Private Sub DataGrid1_Click(Index As Integer)
 
    MsgBox "Ich bin Grid nummer: " & Index
 
    ' Wie du siehst bekommst du automatisch über die Variable Index, den Index 
    ' des geklickten Grid's
    ' Mit hilfe dieses Index's kannst du entsprechend reagieren.
    ' zB mit der Select-Anweisung
 
    Select Case Index
 
        Case 1: MsgBox "Und das hier soll ich auch noch sagen"
        Case 2: MsgBox "bla"
        Case 3: MsgBox "blabla"
        Case 4: MsgBox "blablabla"
        ' Case ...:
 
    End Select
 
 
End Sub

Mit freundlichen Gr??en,
Andy G.

Gruss,

Zardoz

  ' Label deklarieren
  Dim oLabel As Label
 
  ' Label der Form1 hinzufügen
  Set oLabel = Form1.Controls.Add("VB.Label", "Name_des_Labels")
 
  ' [...]

Mit freundlichen Gr??en,
Andy G.

Private withevents oLabel as label
 
....
Set oLabel = Form1.Controls.Add("VB.Label", "Name_des_Labels")
....
 
Private sub olabel_click
msgbox "hallo"
end sub

Wer Rechtschreibfehler findet kann sie behalten oder meinen Deutschlehrer verklagen.

In der Mitte von Schwierigkeiten liegen die M?glichkeiten. [Alber Einstein]