Private Sub CMB_Laenge_Click()
  With CB_Laenge
    If .ListIndex > 2 Then 
      .ListIndex = 0
    Else
      .ListIndex = .ListIndex +1 
    End If
  End With
End Sub

Private Sub CB_Laenge_Change()
  With CMB_Laenge
    .Picture = ImageList1.ListImages(6 + CB_Laenge.ListIndex).Picture
    .PicturePosition = fmPicturePositionCenter
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de