Hola gente, tengo la siguiente situación: en un formulario tengo un combobox con una lista predefinida, se carga al abrir el formulario con el siguiente código

Public Sub Form_Open()
  
 Dim type As String[] = ["article", "book", "mvbook", "inbook", "bookinbook", "suppbook", "booklet", "collection", "mvcollection", "incollection", "suppcollection", "manual", "misc", "online", "patent", "periodical", "suppperiodical", "proceedings", "mvproceedings", "inproceedings", "reference", "mvreference", "inreference", "report", "set", "thesis", "unpublished", "xdata"]
  
 cmbTYPE.List = type
 cmbTYPE.Text = cmbTYPE[0].Text

End

en el mismo formulario hay un veintena de textbox que se deben habilitar/deshabilitar (mostrar/ocultar) según se elija en el combobox, estoy haciendo la prueba con el evento change del combobox, pero hago algo mal, porque no funca, me tiran una cuerda para ver por donde bucear, el código que uso para el evento es

Public Sub cmbTYPE_Change()
  
  If cmbTYPE.Current = 0 Then
    txtISBN.Hide = True
  End If
  
End

PD: como hacen para que en el correo del foro aparezca el código de gambas coloreado y formateado.

No uses change. usa Click. Change se levanta cada pulsación de tecla Click cuando seleccionas un ítem.

... y no uses (esto es un consejo) lo de ocultar o mostrar. Usa habilitar /deshabilitar. Así das información al usuario sobre lo que hay en el form y no lo mareas con "Juraría que aquí estaba tal dato, pero ahora ha desaparecido".

===================
No podemos regresar

Solucionado, gracias.

No está de más que consignes aquí la solución hallada. Eso hace el foro útil a más personas.    

Saludos

===================
No podemos regresar

La solución fue así, con esto conseguí habilitar/deshabilitar los textbox y dar los colores según corresponda

Public Sub cmbTYPE_Click()
  
  Dim celeste As Integer
  Dim amarillo As Integer
  
  celeste = Color.RGB(223, 255, 255)
  amarillo = Color.RGB(255, 255, 223)
  
  'ARTICLE
  If cmbTYPE.Index = 0 Then
    txtTITLE.Enabled = True
    txtTITLE.Background = amarillo
    
    txtLANGID.Enabled = True
    txtLANGID.Background = Color.White
    
    txtKEYWORDS.Enabled = True
    txtKEYWORDS.Background = Color.White
    
    txtRELATED.Enabled = False
    txtRELATED.Background = Color.Background

... sigue código que se repite (con cambios) para cada tipo de entrada ...

End

Alberto, como te va? mira para poner el codigo queda mejor presentado si usas el icono de código, que esta al lado de citar y url.

Saludos.