Mensajes

Hay que echarle imaginacion y no darse por vencido 

Prueba con cStr()

Prueba quitando el ByRef, ya que si no pones nada es ByRef (yo por eso siempre pongo byval a casi todo)

Prueba cambiando la declaracion en lugar de declararlo como ListBox hazlo como Variant o como Object (como Variant no se si lo pillara)

Si se me ocurre algo mas ya te aviso

Suerte

Es muy raro.
Seguro que es un ListBox?
Yo acabo de probar esto:
En el Form1 tengo este command

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
  Form2.PRUEBA Me.List1
End Sub

y en el Form2 tengo esto

Código (vb) [Seleccionar] Expandir


Public Sub PRUEBA(ByRef LSB As ListBox)
 LSB.AddItem 22332
 LSB.AddItem "Prueba"
End Sub

Y el listbox recibe las dos líneas sin problemas.

Prueba a convertirlo en cadena:

Código (vb) [Seleccionar] Expandir


Lsb.AddItem cStr(Rs.Fields(0).Value)

Suerte

y si en vez de byref los pasas como byval, aclaro que puedo estar re equivocado hace años que no uso vb

Si lo pasas ByVal los cambios no afectan al ListBox original.

Saludos

Es en el _change donde tienes que actuar, pero para no copiar 2 veces todo el mismo codigo crea una sub y la llamas desde los _change.

Código (vb) [Seleccionar] Expandir


Private Sub txtN1_change()

 Calcular

End Sub

Private Sub txtN2_change()

 Calcular

End Sub

Private Sub Calcular()
 ' y aqui haces las operaciones
 If Combo1.Text="Sumar" Then
   txtResultado=txtN1.Text+txtN2.Text
 elseif Combo1.Text="Restar" Then
   txtResultado=txtN1.Text-txtN2.Text
 End If

End Sub


Saludos

Un disco es raro que te bloquee el sistema si no es el disco principal.
De todas formas es una posibilidad, y más si sabes que está roto.
De hecho prácticamente cualquier componente estropeado te puede petar el sistema, y adivina.
Sin embargo ese síntoma es habitualmente causado por la falta de refrigeración.
Si no se refrigera bien, puedes acabar rompiendo la fuente de alimentación o, mucho peor, la placa madre o el micro.
También una tarjeta de vídeo acelerada (que traen su propio ventilador) puede petarte el sistema si el ventilador empieza a fallarle. Yo acabé mandándola al peo, son mas seguras las integradas en la placa madre y siempre me compro las PM con vídeo. Tampoco soy un super-friki de los juegos

A mí todos los veranos suele recordarme el mío de ese modo (o alguno parecido) que le engrase los ventiladores

Saludos

Para ver asi una ProgressBar tienes que poner su propiedad Scrolling = ccScrollingSmooth
ya sea en tiempo de diseño o en el codigo.
Puedes poner en el evento Form_Load:

Código (vb) [Seleccionar] Expandir


ProgressDanilo.Scrolling = ccScrollingSmooth
ProgressLeonel.Scrolling = ccScrollingSmooth
ProgressHipolito.Scrolling = ccScrollingSmooth


Saludos

Felicidades 
Parece que al final has logrado tu objetivo.

Puedes intentar crear tu propio visor dentro del proyecto.
Asi cargas las imagenes p.ej en 2 picturebox diferenes y despues ocultas o muestras el que quieres, con los mensajes y descripciones que quieras.
No creo que sea muy complicado si no tienes que manipular la imagen.

Saludos

Veo 2 problemas:
1, si el visor vuelve a cambiar el titulo debe ser que tiene alguna especie de timer que lo actualiza, porque con otros programas parece ser un cambio mas permanente.
2, tu tienes asociado el visor de imagenes de windows a las fotos, pero mucha gente asocia un visor diferente y tu programa no les va a servir. A mi de hecho me aparece el visor de windows como "visualizador de fotos de windows", pero ademas las imagenes las tengo asociadas a ACDSee.

La solucion mas simple es que, justo despues de guardar la imagen con sdpaint la renombres. Asi el propio visor te muestra si es procesada o no.
Hacer un "Guardar como..." no te interesa porque tendrias que ir dandole nombres durante todo el proceso, pero justo despues del sendmessage con ctrl+G puedes poner algo como:

Código (vb) [Seleccionar] Expandir


Name ListFiles.List(i) As Left(ListFiles.List(i), Len(ListFiles.List(i)) - 4) & "_Procesado.jpg"


como luego borras la lista no hace falta, pero si no la borras puedes actualizar el nuevo nombre:

Código (vb) [Seleccionar] Expandir


ListFiles.List(i) = Left(ListFiles.List(i), Len(ListFiles.List(i)) - 4) & "_Procesado.jpg"


Tambien puedes guardar las originales con el "_Original" al final al copiarlas o renombrandolas despues.
Incluso te puede interesar hacer esto ultimo mejor que otra cosa, ya que solo renombras las originales, y las nuevas que son las que se supone que te interesan mantienen su nombre original.

Que se de bien.

 
No se me ocurre ninguna explicación.
Siento que no te sirva.