✔ Listbox in Laufzeit verändern

[vbeldor]

Hallo

ich möchte die größe von Listboxen in der Laufzeit ändern. Ich habe dies mit 2 Labeln zwischen den 3 Listboxen gelöst also so:

list2(0) - label6 - list2(1) - label7 - list2(2)

wenn ich jetzt aber label7 nach links ziehe soll es nicht weiter als label6 gehen weil sonst ein error kommt, beim label6 genauso. hier der Code:

Private Sub label6_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)

  XPos = X
End Sub

Private Sub label6_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)

  If Button = 1 Then
        
     Label6.Left = Label6.Left + X - XPos
  List2(0).Width = Label6.Left - List2(0).Left
  List2(1).Left = Label6.Left + Label6.Width
  List2(1).Width = Label7.Left - List2(1).Left
  End If
End Sub



Private Sub label7_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
XPos = X
 
End Sub

Private Sub label7_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
If Button = 1 Then

        
     Label7.Left = Label7.Left + X - XPos
     List2(2).Left = Label7.Left + Label7.Width
List2(1).Width = Label7.Left - List2(1).Left

 End If
End Sub

kann mir jemand helfen?

vbEldor

 

[vbeldor]

okay hat sich erledigt...
hab das Steuerelement Listview genommen. Musste zwar meinen ganzen Code umschreiben aber es klappt^^.