Miren tengo un problema. Tengo 10 computadores y instale mi programa varias veces(mientras le hacia cambios) en los 10, me dio error en 2 computadores y  primero abrio bien el programa lo cerre y cuando lo volvi a abrir me salio el error Run-time error '5': Invalid procedure call or argument El error solo aparece en 2 computadores de los 10



Alguna teoria de la causa de este error???

Aqui el codigo del formload

If Command$ <> "" Then
LabelProt.Visible = True
LabelProt0.Visible = True
Timer13.Enabled = True
Label10.Visible = True
LabelProt.Caption = "CODIGO DE ERROR " & Command$
End If
 
'cargamos imagenes para la publicidad
    FLBImagenes.Path = App.Path & "\data\publicidad\"
    FLBImagenes.Pattern = "*.jpg;*.png;*.gif;*.jpeg;*.bmp;*.ico"
    Randomize
'Cargamos la imagen de fondo de el listbox en el image1
Image1.Picture = LoadPicture(App.Path & "\data\fnd\fndlb.jpg")
'Fondo para el listbox
Image1.Visible = False
gBGBrush = CreatePatternBrush(Image1.Picture.Handle)
'Subclass the window
oldWindowProc = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf NewWindowProc)
oldLbx1Proc = SetWindowLong(lstTitulos.hwnd, GWL_WNDPROC, AddressOf NewLbxProc)
'Version del programa'
lblVersion.Caption = "Versión " & App.Major & "." & App.Minor & "." & App.Revision
'Imagen de fondo
Dim Ruta As String
'la ruta de la imagen en el disco
Ruta = App.Path & "\data\fnd\fnd.jpg"
'Le pasamos al método LoadPicture la variable Ruta
frmPpal.Picture = LoadPicture(Ruta)
'Mostramos a quien esta registrada la licencia
crlf$ = Chr(13) & Chr(10)
licencia.Caption = ""
Open App.Path & "\data.rockola" For Input As #1
While Not EOF(1)
Line Input #1, file_data$
licencia.Caption = licencia.Caption & file_data$ & crlf$
Wend
Close #1
'Establece las tipografias
lblmin.Font = "Digital-7"
lblsec.Font = "Digital-7"
lbldospuntos.Font = "Digital-7"
txtSeleccion.Font = "Digital-7"
'Elimina los bordes del listbox
Call Establecer_Borde(lstTitulos, Me, &HC0C0C0, vbBSDot, 1)

interesante, pero tendria que enumerar todas las lineas???

.
yo te recomendaría la forma mas fácil para mi llevar un vb6 portable ejecutarlo y abrir en esa pc tu código, revisar y hacer un debug en el IDE en esa pc ( de manera veloz, pero no te pongas a re-programar hay amenos que lo requieras claro ), la opción mas pesada es la que menciono Seba123Neo.

Temibles Lunas!¡.

Mi método no es para una empresa de software claro esta ya que si fuera asi lo mas recomendable seria hacer Volcar los registros de la pila hasta el proceso X que causo el error, junto con las variables implicadas y asi mandarlo por TCP/IP a un host, pero de hecho me dio la impresión que es para un cyber (el tramo de código no me dio ni siquiera el aire de que esta siendo desarrollado para una empresa, pero si para un cyber o similar donde se tienen las PC al alcance).

Por otro lado el método que mansionas y mi método tienen desventajas claro, el tuyo así por un msgbox solo te dice la linea con un poco mas de información que elijas a mostrar y el mio que tienes que llevar un EXE y el Source e instalar OCX necesarias si son requeridas y si se tiene una fea dependencia a las mismas, pero he hay una subclasificacion ( que quien sabe que haya en ese proceso, ni si esta siendo restaurado el oldWinProc de ambas subclasificaciones al termino de su función principal ).

P.D.: quien sabe si le llegue a atinar con este enlace: http://support.microsoft.com/kb/290887

Dulces Lunas!¡.
.