Private Sub Label140_DragDrop(Source As Control, X As Single, Y As Single)
  If Source.Name = Label140.Name Or Source.Caption = "" Then
    Label140.Caption = Label140.Caption
  ElseIf Source.Tag < Label91.Tag And Label140.Caption = "" Then
    Label140.Caption = Source.Caption
    Source.Caption = ""
  ElseIf Source.Tag < Label91.Tag And Label140.Caption <> "" Then
    Label140.Caption = Label140.Caption
 
    Dim so As Object
    For Each so In Me.Controls
      If TypeOf so Is Label Then
        If so.Caption = Source.Caption Then
          Source.Caption = ""
          Exit For
          If so.Caption = "" Then
            so.Caption = Source.Caption
            Source.Caption = ""
            Exit For
          End If
        End If
      End If
    Next 
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de