Dim lblLabelFeld() As Label
Dim fiL As Integer

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(.., ..)
 
        '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)
  Dim itemMove As Label = CType(sender, Label)
  Dim index As Integer = -1
  Dim i As Integer
 
'Hier liegt irgendwo noch ein FEHLER
  For i = 0 To UBound(lblLabelFeld)
     If lblLabelFeld(i) Is itemMove Then
          'wird nicht gefunden
        index = i
        Exit For
     End If
  Next
 
'Tooltip wird nicht angezeigt!
 'tip.SetToolTip(lblLabelFeld(0), "LabelTooltip")
 If index > -1 Then tip.SetToolTip(lblLabelFeld(index), "LabelTooltip")
 
End Sub