Resize VBA userform

Question

I want to make a resizable userform. Right now below is the code but it only minimize and maximize.

Private Sub UserForm_Activate()

Dim lFormHandle As Long, lStyle As Long

lFormHandle = FindWindow("ThunderDFrame", frmTesting.Caption)

lStyle = GetWindowLong(lFormHandle, GWL_STYLE)

lStyle = lStyle Or WS_SYSMENU 'SystemMenu

lStyle = lStyle Or WS_MINIMIZEBOX 'With MinimizeBox

lStyle = lStyle Or WS_MAXIMIZEBOX 'and MaximizeBox

SetWindowLong lFormHandle, GWL_STYLE, (lStyle)

DrawMenuBar lFormHandle

End Sub

Is it possible to custom resize the userform?

Answer 1

Is it possible to custom resize the userform?

Here is a sample file:

https://dl.dropboxusercontent.com/u/35239054/Userform_Example_FormResizer.xlsm

Andreas.