private const int WS_EX_STATICEDGE = 0x00020000;
private const int WS_SIZEBOX  = 0x00040000;
protected override System.Windows.Forms.CreateParams CreateParams
{
  get
  {
    System.Windows.Forms.CreateParams CP = base.CreateParams;
    CP.ExStyle =  WS_EX_STATICEDGE;
    CP.Style =  WS_SIZEBOX;
    return CP;
  }
}

Private Const WS_EX_STATICEDGE As Integer = &H20000
Private Const WS_SIZEBOX As Integer = &H40000
Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
  Get
    Dim CP As CreateParams = MyBase.CreateParams
    CP.ExStyle = WS_EX_STATICEDGE
    CP.Style = WS_SIZEBOX
    Return CP
  End Get
End Property

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_STATICEDGE As Long = &H20000
Private Const WS_SIZEBOX As Long = &H40000
Private Sub Form_Initialize()
  SetWindowLong Me.hwnd, GWL_STYLE, WS_SIZEBOX
  SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_STATICEDGE
End Sub

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const GWL_STYLE As Long = (-16)
Private Const GWL_EXSTYLE As Long = (-20)
Private Const WS_EX_STATICEDGE As Long = &H20000
Private Const WS_SIZEBOX As Long = &H40000
Private Sub UserForm_Initialize()
  Dim hwnd As Long
  hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", "X", "D") & "Frame", Me.Caption)
  SetWindowLong hwnd, GWL_STYLE, WS_SIZEBOX
  SetWindowLong hwnd, GWL_EXSTYLE, WS_EX_STATICEDGE
End Sub