Hiding the border???

[New to VB 6]

I once heard the you could strip away the border and keep the controls, How?

I mean remove the form border and keep the use of the border controls to right click on the icon in the tastbar...

Restore
Move
Size
Minimize
Maximize
-------------
Close

[IntelSucks]

wait...completely remove the border and have controls just floating? Or having no border or controls at all?

[MarkT]

See if this is what you are after.

Option Explicit
 
'API Calls Used To Remove The Title Bar From Window (Make A Sizeable Borderless Form)
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" _
                            (ByVal hwnd As Long, ByVal nIndex As Long) As Long
                            
Private Const GWL_STYLE = (-16)
Private Const WS_DLGFRAME = &H400000
 
'API Calls Used To Move A Form With The Mouse
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                            (ByVal hwnd As Long, ByVal wMsg As Long, _
                            ByVal wParam As Long, lParam As Any) As Long
 
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1
 
Private Sub Form_Load()
    'ERASE the Title Bar
    SetWindowLong Me.hwnd, GWL_STYLE, GetWindowLong(Me.hwnd, GWL_STYLE) + WS_DLGFRAME
End Sub
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Move the form with the Left Mouse Button
    If Button = vbLeftButton Then
        Me.MousePointer = vbSizeAll
        Call ReleaseCapture
        Call SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
        Me.MousePointer = vbArrow
    End If
End Sub

[Madboy]

Yeah, he means the Control Box

[New to VB 6]

Thanks MarkT,

That was the exact thing I was looking for...