Работа со списками - VB

Формулировка задачи:

Разработать приложение, позволяющее с помощью списков «Фирма», «Цвет», «Исполнение», «Тип кузова» и полосы прокрутки дать описание модели автомобиля. Выбранные значения должны отображаться в метке по щелчку по кнопке «Зафиксировать» . Значения списков формируются на стадии проектирования.

Решение задачи: «Работа со списками»

textual
                            Листинг программы 
                        

                            Private Sub CmdZaf_Click()
 If LstIsp.ListIndex < 0 Then MsgBox "Выберите исполнение": Exit Sub
     If LstTip.ListIndex < 0 Then MsgBox "Выберите тип кузова": Exit Sub
     Label1.Caption = "Фирма:  " & CmbFir.Text & vbCrLf & _
                             "Цвет:  " & CmbCvet.Text & vbCrLf & _
                             "Исполнение:  " & LstIsp.List(LstIsp.ListIndex) & vbCrLf & _
                             "Тип кузова:  " & LstTip.List(LstTip.ListIndex)
End Sub
 
 
Private Sub Form_Load()
    CmbFir.ListIndex = 0
    CmbCvet.ListIndex = 0
    LstIsp.ListIndex = 0
    LstTip.ListIndex = 0
End Sub
 
 
'Private Sub HScroll1_Change()    Здесь не получается
'LbM. ...   = HSX.Value       
'LbM.Min = 1
'LbM.Max = 100
'End Sub
                        