Kopiere skabelon til anden PC

Jeg får følgende compile error:
Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules. Det er nedenstående, der tilsyneladende er problemet.

Declare Function LockWindowUpdate Lib "user32" _
      (ByVal hwndLock As Long) As Long

Er det samme styresystem?

Ja begge er XP Home Edition. Det skal måske lige siges, at den PC jeg har forsøgt på ikke er den, det skal bruges på. Det var blot for at se om det fungerede inden jeg kom ud til dem, der skal bruge det.

Prøv at slette lininerne:

Declare Function LockWindowUpdate Lib "user32" _
      (ByVal hwndLock As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long

hWnd = FindWindow("OpusApp", 0&)
LockWindowUpdate (hWnd)
LockWindowUpdate (0&)

Bare for at se om det så kører...

Jeg har desværre ikke umiddelbart mulighed for at afprøve dit forslag, da det var på min brors PC. I dag har jeg dog fået det til at fungere på 2 forskellige andre PC'er - med andet styresystem oven i købet. Jeg håber derfor, at jeg i morgen uden problemer kan få det til at fungere på den PC, hvor det skal bruges. Jeg vender tilbage igen i morgen, når jeg ved om det fungerede eller ej.

Jeg ved ikke, hvad problemet var på min brors PC, men det fungerer fint på den PC, hvor det skal bruges. Tak for hjælpen :-)