Private Sub Form_Load()
Dim styles As Long

    ' Set the WS_EX_TOOLWINDOW style
    styles = GetWindowLong(hwnd, GWL_EXSTYLE)
    styles = SetWindowLong(hwnd, GWL_EXSTYLE, _
        styles Or WS_EX_TOOLWINDOW)

    ' Make the form redraw itself to update its frame.
    SetWindowPos hwnd, 0, 0, 0, 0, 0, _
        SWP_FRAMECHANGED Or SWP_NOMOVE Or _
        SWP_NOZORDER Or SWP_NOSIZE
End Sub