Problemas con el TabStrip en VB6

[mvero]

Hola a todos!

Tengo un problema con el uso del TabStrip, estoy tratando de que cuando selecciono una pestaña, por ejemplo si selecciono la pestaña 2, quiero que me deje de mostrar los datos que tengo en la pestaña 1 y me muestre las cosas que tengo en la pestaña 2 (a la que por cierto no se como colocarle otras cosas), tengo el siguiente codigo, la cosa es que cuando lo corro se queda haciendo un bucle infinito en ese procedimiento y no entiendo porque, espero que alguien me pueda ayudar

Este es el codigo

Private Sub TabStrip1_Click()
'Cuando se pulsa en el tabstrip...
Dim i As Integer

i = TabStrip1.SelectedItem.index

'Mostrar el contenedor que corresponda
TabStrip1.Tabs.Item(i).Selected = True
End Sub

Cuando termina la ultima instruccion vuelve a correr la funcion TabStrip1.Click sin haber realizado ningun otro click.

Saludos
Veronica