How to set the start position of a modeless user-form?

[Davavo]

Hello all.

I know how to position a modal form, but a modeless form, acting as a 'please wait' sign is not responding in the same way.
If anyone can help I would be very grateful.

I position a regular form with the following private sub in the forms code window

Private Sub UserForm_Activate()

    Dim TopOffset As Integer
    Dim LeftOffset As Integer
    
    TopOffset = (Application.UsableHeight / 2) - (Me.Height / 2)
    LeftOffset = (Application.UsableWidth / 2) - (Me.width / 2)
    
    Me.Top = Application.Top + TopOffset
    Me.Left = Application.Left + LeftOffset


End Sub

I call this code from a public sub

Sub CallUserForm1()

Load UserForm1


UserForm1.Show


End Sub

I have several of these, all working fine.

The modeless form is exactly the same except adding 'false' to indicate modeless

userform1.show false

This causes the code in the forms window, that positions the form, to be ignored.

is there a work around?

Thanks in advance.

D

 

[RoryA]

It works fine for me. Is it the first time that form has been loaded and shown?

 

[Davavo]

Hi, thanks for your reply.
no, i have such down and restarted excel overnight.
Strange

one of these messing with it?

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

 

[Davavo]

Doevents solved it.

Also changed 'False' to vbmodeless but thats just to be more descriptive.

Sub CallUserForm9()

Load UserForm9


UserForm9.Show vbModeless
DoEvents


End Sub

Thanks for your help RoryA!

 

[RoryA]

Screenupdating is probably the culprit.

 

[Davavo]

Screenupdating is probably the culprit.

maybe, but i checked them all.