a mi me a gustado aun que le quite el botón ver por que me molestaba estar cambiando y dando click a dicho boton para ver mi horóscopo, le puse la acción de que se visualice el horóscopo 'X' con girar la scroll del mouse o al secionar el horóscopo solo si esta con el foco en el ComboBox.

Solo modifique estos dos procesos quitando el proceso Private Sub cmdBuscar_Click()

 
Private Sub cboSignos_Click()
Static SignoPrev As String
    If Not SignoPrev = cboSignos.Text Then
        Call oHoroscopo.DescripcionSigno(cboSignos.ListIndex)
 
        lblDescripcion.Caption = oHoroscopo.Descripcion
        lblTitulo.Caption = cboSignos.Text
 
        Set picSignos.Picture = oHoroscopo.ImagenSigno
        SignoPrev = cboSignos.Text
    End If
End Sub
 
Private Sub Form_Load()
    Set oHoroscopo = New cHoroscopo
 
    Call CargarSignos
    Call cboSignos_Click
End Sub
 
 

Saludos

Temibles Lunas!¡.
.

Bueno, bueno seba... Esta espectacular... Yo pense en armar uno con las Widgets, de hecho estoy con un Directorio tipo Iphone, pero bueno el laburo me consume mucho tiempo y ya los clientes no me dejan ni respirar... De igual manera apenas tenga algo, lo posteo... Saludos seba...