mdiform again

can i make mdiform with no control bar ?

thanx a lot..

1. Have you tried?
2. What do you mean with "control bar"?

1. Have you tried?
2. What do you mean with "control bar"?

i get 1 code to do that from planet source code but the code will generate horizontal scroll bar...
i'll give the code later

1. Have you tried?
2. What do you mean with "control bar"?


what i meant with control bar is the bar where caption of mdiform located..

Try this:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME

Private Sub MDIForm_Load()

Dim style As Long

style = GetWindowLong(Me.Height, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, style Or WS_SIZEBOX

End Sub

Try this:

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE = (-16)
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME

Private Sub MDIForm_Load()

Dim style As Long

style = GetWindowLong(Me.Height, GWL_STYLE)
SetWindowLong Me.hwnd, GWL_STYLE, style Or WS_SIZEBOX

End Sub


thanks, its working one more thing can i make it cannot resizeable


thank you so much for the code...