Private Sub Form_Load()
With List1
.AddItem "apple"
.AddItem "orange"
.AddItem "banana"
End With
End Sub
Private Sub List1_Click()
If List1.Text = "apple" Then
List2.Clear
List2.AddItem "apple mix"
List2.AddItem "apple fruites"
ElseIf List1.Text = "orange" Then
List2.Clear
List2.AddItem "arange mixed fruite juice"
List2.AddItem "arange juice extra"
ElseIf List1.Text = "banana" Then
List2.Clear
List2.AddItem "banna extra"
List2.AddItem "banna light"
End If
End Sub
Private Sub List2_Click()
If List2.Text = "apple mix" Then
List3.Clear
List3.AddItem "apple mix 2014"
List3.AddItem "apple fruites 2015"
ElseIf List2.Text = "apple fruites" Then
List3.Clear
List3.AddItem "apple fruites 2014"
List3.AddItem "apple fruites 2015"
ElseIf List2.Text = "arange mixed fruite juice" Then
List3.Clear
List3.AddItem "arange mixed fruite juice mega"
List3.AddItem "arange mixed fruite juice light"
ElseIf List2.Text = "arange juice extra" Then
List3.Clear
List3.AddItem "arange mixed fruite juice 3333333333333333333333333333"
List3.AddItem "arange mixed fruite juice aaaaaaaaaaaaaaaaaaaaaa"
ElseIf List2.Text = "banna extra" Then
List3.Clear
List3.AddItem "banna extra 204"
List3.AddItem "banna light 3333333"
ElseIf List2.Text = "banna light" Then
List3.Clear
List3.AddItem "banna extra 4444444444444"
List3.AddItem "banna light 11111111111"
End If
End Sub