Change window border style

[dazzer123]

I have a VB .Net application that, using Windows API, pulls Microsoft Mappoint in to it as a child window. What I now need to be able to do is change the border style of the Mappoint window so that it is no longer sizable.

Here is what I have so far

MpOpen = FindWindowNullClassName(0, "Map - Microsoft Mappoint Europe")


formHandle = Me.Handle.ToInt32

retval = SetWindowLong(MpOpen, GWL_STYLE, WS_CHILD Or WS_VISIBLE)

Dim bValue As Boolean
bValue = False

If bValue Then
    retval = retval Or WS_CAPTION
Else
    retval = retval And Not WS_CAPTION
End If

SetWindowLong(MpOpen, GWL_STYLE, retval)
SetWindowPos(MpOpen, HWND_Bottom, 0, 0, 0, 0, SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOOWNERZORDER Or SWP_NOSIZE)
retval2 = SetParent(MpOpen, formHandle)

This may not be entirly accurate but you get the idea.

Any ideas on how I can now change mappoints border style would be really appriciated.

 

[dazzer123]

Done it!

        lStyle = GetWindowLong(MpOpen, GWL_STYLE)

        ' Set requested bit Off and Redraw.
        lstyle = lstyle And Not WS_THICKFRAME

        Call SetWindowLong(MpOpen, GWL_STYLE, lstyle)
        Const swpFlags As Integer = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOZORDER Or SWP_NOSIZE
        SetWindowPos(MpOpen, 0, 0, 0, 0, 0, swpFlags)