'Place this code in a Module
 
Private Declare Function FindWindowA Lib "USER32" _ 
(ByVal lpClassName As String, _ 
ByVal lpWindowName As String) As Long 
 
Private Declare Function GetWindowLongA Lib "USER32" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long) As Long 
 
Private Declare Function SetWindowLongA Lib "USER32" _ 
(ByVal hWnd As Long, _ 
ByVal nIndex As Long, _ 
ByVal dwNewLong As Long) As Long 
 
Option Explicit 
 
Sub FormatUserForm(UserFormCaption As String) 
     
    Dim hWnd            As Long 
    Dim exLong          As Long 
     
    hWnd = FindWindowA(vbNullString, UserFormCaption) 
    exLong = GetWindowLongA(hWnd, -16) 
    If (exLong And &H20000) = 0 Then 
        SetWindowLongA hWnd, -16, exLong Or &H20000 
    Else 
    End If 
     
End Sub 
 
Sub ShowForm() 
     
    UserForm1.Show 
     
End Sub 
 
 
 
 'Place this code in a UserForm with one Command Button named CommandButton1.
 
Option Explicit 
 
Private Sub CommandButton1_Click() 
     
    Unload Me 
     
End Sub 
 
Private Sub UserForm_Initialize() 
     
    Call FormatUserForm(Me.Caption) 
     
End Sub