Run-time error '5': Invalid procedure call or argument

[suarex]

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



Alguna teoria de la causa de este error???

Aqui el codigo del formload

Código:

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)