is it possible to remove the caption and border from a user form ?

UserForm1.BorderStyle = fmBorderStyleNone
UserForm1.Caption = ""

"amit" wrote:

is it possible to remove the caption and border from a user form ?

hi joel - thx for your reply........my question was is it possible to totally
remove the strip with the X close button from the userform.....

thx.

"Joel" wrote:

UserForm1.BorderStyle = fmBorderStyleNone
UserForm1.Caption = ""

"amit" wrote:

is it possible to remove the caption and border from a user form ?

Not as far as i know. If you just need to control the use of the "X",
have a look at the queryclose event.

hth

Keith

Hi Amit,

Yes, but by using an API call
Stephen Bullen wrote code to to this and more things.

Look at his page http://www.bmsltd.ie/Excel/SBXLPage.asp for FormFun.zip.
Regards
Jean-Yves

"amit" wrote in message
...
hi joel - thx for your reply........my question was is it possible to
totally
remove the strip with the X close button from the userform.....

thx.

"Joel" wrote:

UserForm1.BorderStyle = fmBorderStyleNone
UserForm1.Caption = ""

"amit" wrote:

is it possible to remove the caption and border from a user form ?

Hi amit,
Do not forget a button to close the userform.

Private Declare Function FindWindow& Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function SetWindowLong& Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, ByVal wNewWord&)
Private Declare Function DrawMenuBar& Lib "user32" (ByVal hWnd&)

Private Sub UserForm_Initialize()
Dim hWnd&
hWnd = FindWindow(vbNullString, Me.Caption)
SetWindowLong hWnd, -16, &H84080080 ' remove caption
DrawMenuBar hWnd
SetWindowLong hWnd, -20, &H40000 ' remove borders
End Sub

Regards


"amit" a écrit dans le message de
...
is it possible to remove the caption and border from a user form ?