
Private Sub Command1_Click()
If Combo1 = "Chicken salad" Then
If List1 = "Chicken" Or List1 = "Crouton" Or List1 = " Secret Dressing" Or List1 = "Lettuce" Then List2.AddItem "" + List1.Text Else
MsgBox ("No Need!")
End If
End If
If Combo1 = "Fruit Plate" Then
If List1 = "Orange" Or List1 = "Apple" Or List1 = " Secret Dressing" Or List1 = "Lettuce" Then List2.AddItem "" + List1.Text Else
MsgBox ("No Need!")
End If
End If
If Combo1 = "Fruit Salad" Then
If List1 = "Apple" Or List1 = "Grape" Or List1 = " Orange" Or List1 = "Pineapple" Then List2.AddItem "" + List1.Text Else
MsgBox ("No Need!")
End If
End If
If Combo1 = "Garden Salad" Then
If List1 = "Lettuce" Or List1 = "Crouton" Or List1 = " Secret Dressing" Or List1 = "Mayonaise" Then
List2.AddItem "" + List1.Text Else
MsgBox ("No Need!")
End If
End If
End Sub
Private Sub Command2_Click()
If Label2.Caption Like "-1" Then
MsgBox ("Select an item from list")
Exit Sub
End If
Index = Label2.Caption
List1.RemoveItem
IndexEnd Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Timer1_Timer()
Label2.Caption = List1.ListIndex
End Sub