User Form
 

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

User Form
 

UserForm1.BorderStyle = fmBorderStyleNone
UserForm1.Caption = ""

"amit" wrote:

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

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 ?

User Form
 

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 ?

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

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 ?