Open popup form on correct position

[gstylianou]

Dear all,

First of all i would like to thank you very much about your help.. Now, i wanted to reply to my friend Ridder about his post #20.

So, the problem about the DLL File persist because i'm trying to open a form witch includes code On Open to find the screen resolution automatically and then to store Width and Height into a relevant fields. The database includes a module about this job...

Find attached my database with the original modules...

Thanks again all of you..

 

[isladogs]

Well I don't think you actually answered either of my questions in post #20.

However your database took 2 seconds to fix

In module 1 you had 'remmed out' the second line of the API call:

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" _
[COLOR="Red"]() '        [/COLOR]Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

It should be

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" _
        Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Once that's done, it works (or at least the error has gone ...

 

[gstylianou]

Well I don't think you actually answered either of my questions in post #20.

However your database took 2 seconds to fix

In module 1 you had 'remmed out' the second line of the API call:

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" _
[COLOR="Red"]() '        [/COLOR]Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

It should be

Private Declare PtrSafe Function GetSystemMetrics32 Lib "user32" _
        Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Once that's done, it works (or at least the error has gone ...

You are right my friend..sorry for you time..!!
thank you very much