Meter valores en un listbox en función de otro listbox

[bartchoza]

Hola a todos, tengo manejo en lenguajes de programación como Java o C++, pero el problema es que Visual Basic lo manejo de forma mucho más básica, y necesito hacer una especie de aplicación con un formulario en Access 2007 (visual basic 6), y estoy frustrado después de muchas horas de trabajo sin ningún fruto.

Mi problema es el siguiente, tengo un listbox que tiene 2 opciones, y lo que quiero hacer es que en función de la opción que escoja en el listbox se rellene otro listbox con distintos valores.

Por ejemplo, si en el primer listbox tenemos las opciones de cine o música, si cogemos cine en el primer listbox en el segundo listbox queremos que aparezca "Película 1, Película 2, etc."; pero si cogemos en el primer listbox la opción de música, queremos que aparezca en el segundo listbox "Disco 1, Disco 2, etc."

Os dejo lo que yo he hecho por si fuerais tan amables de ayudarme:

Private Sub Tipo_Click()

If Tipo.ListCount>0 Then
Tipo.RemoveItem 0
Tipo.RemoveItem 1
End If

If Tipo.Value = "Musica" Then
Tipo2.AddItem "Camela", 0
Tipo2.AddItem "Los Chunguitos", 1
Else
Tipo2.AddItem "Indiana Jones", 0
Tipo2.AddItem "Gladiator", 1
End If
End Sub

El problema con este código es que no para de añadir todo el rato instrucciones si el usuario le da por pinchar más de una vez en la selección, intuyo que lo del listcount no me está contando bien, pero es que también he querido utilizar instrucciones para limpiar como por ejemplo Tipo.Clear y tampoco me hace nada. Quién me ayude a resolver esto la verdad que le pongo una estatua donde él me diga como homenaje.

Muchas gracias por todo, un saludo.