UserForm Resize

[AlexanderBB]

I found the following with pretty much does what is wanted -

'Written: February 14, 2011
'Author:  Leith Ross
'
'NOTE:  This code should be executed within the UserForm_Activate() event.

Private Declare Function GetForegroundWindow Lib "User32.dll" () As Long

Private Declare Function GetWindowLong _
  Lib "User32.dll" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, _
     ByVal nIndex As Long) _
  As Long
               
Private Declare Function SetWindowLong _
  Lib "User32.dll" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, _
     ByVal nIndex As Long, _
     ByVal dwNewLong As Long) _
  As Long

Private Const WS_THICKFRAME As Long = &H40000
Private Const GWL_STYLE As Long = -16

Public Sub MakeFormResizable()

  Dim lStyle As Long
  Dim hWnd As Long
  Dim RetVal
  
    hWnd = GetForegroundWindow
  
    'Get the basic window style
     lStyle = GetWindowLong(hWnd, GWL_STYLE) Or WS_THICKFRAME

    'Set the basic window styles
     RetVal = SetWindowLong(hWnd, GWL_STYLE, lStyle)


End Sub

Private Sub UserForm_Activate()
    Me.Picture = LoadPicture("P:\Test.jpg")
    MakeFormResizable
End Sub

But as the Form is resized it flashes white rubbishy stuff while moving. Is there any way to stop this?
Thanks.

 

[James006]

Hi,

You can always test : Application.ScreenUpdating = False

Hope this can help

 

[AlexanderBB]

I'm not sure where that instruction should go. I tried a couple of places made it sort of made it worse... left multiple shadows and the flashing
on the image remained.

 

[James006]

Do not know the complexity of your code ...

Have you tried at the Initialize level ...?