Using VB6 for Application

[flolep]

I'm using VB6 for Application with MS Word.

The BorderStyle property offers only 2 types
And I want to create a FixedToolWindow which I can't find in VBA...

How could I extend BorderStyle property in my VBA ?

Thanks

[parksie]

I don't think you can do it with the MS Forms 2.0 library. If you try adding a reference to your VB5/VB6 object libraries, you might be able to do it that way. Other than that, you're going to need to create the window specifically.

[flolep]

What object library should I add to find it ?

[parksie]

Erm...not sure. Try using SetWindowLong:

Dim hWnd As Long
Private Sub UserForm_Initialize()
    On Error Resume Next
    hWnd = FindWindow("ThunderDFrame", "UserForm1")
    SetWindowLong hWnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW
    Me.hide
    Me.Show
End Sub

This seems to work, but I get an 'Object variable or With block not set' error when the window is closed.
Oh well, to use it, set "UserForm1" to the caption of your window.