Private Sub VorschauFelder_erzeugen(ByVal objNr As Integer, ByVal x As Integer)
   lblLabelFeld(objNr) = New Label
   With lblLabelFeld(objNr)
       .Parent = Me
       .Parent.Controls.Add(lblLabelFeld(objNr))
 
          'Verwaltungsinformationen zuweisen
        .Name = "lblFeld" & CStr(objNr)
        .AutoSize = False
        .Visible = True
 
        .Size = New Size(CInt(Breite), 13)
        .Location = New Point(.., ..)
        .Tag = objNr ' Hier wird der Index gespeichert
 
        'EreignisHandler
        AddHandler .MouseMove, AddressOf lblLabelFeld_MouseMove
    End With
End Sub

Private Sub lblLabelFeld_MouseMove(ByVal sender As Object, ByVal e As   _
  System.Windows.Forms.MouseEventArgs)
  tip.SetToolTip(sender, TipTextListe(sender.Tag)) ' mit sender.Tag wird der 
  ' index wieder abgerufen...
 End Sub

Private Sub VorschauFelder_erzeugen(ByVal objNr As Integer, ByVal x As Integer)
   lblLabelFeld(objNr) = New Label
   With lblLabelFeld(objNr)
       .Parent = Me
       .Parent.Controls.Add(lblLabelFeld(objNr))
 
          'Verwaltungsinformationen zuweisen
        .Name = "lblFeld" & CStr(objNr)
        .AutoSize = False
        .Visible = True
 
        .Size = New Size(CInt(Breite), 13)
        .Location = New Point(.., ..)
        .Tag = TipTextListe(objNr) ' Hier wird der ToolTipText gespeichert
 
        'EreignisHandler
        AddHandler .MouseMove, AddressOf lblLabelFeld_MouseMove
    End With
End Sub

Private Sub lblLabelFeld_MouseMove(ByVal sender As Object, ByVal e As   _
  System.Windows.Forms.MouseEventArgs)
  tip.SetToolTip(sender, sender.Tag) ' mit sender.Tag wird der ToolTipText 
  ' wieder abgerufen...
 End Sub