حذف نوار عنوان و خصوط حاشیه یک برنامه خارج از برنامه اصلی توسط توابع API

[ROSTAM2]

سلام.
من می خوام نوار عنوان و خطوط حاشیه پنجره یک برنامه خارج از برنامه اصلی مثل Notepad یا یک console app رو با کدهای API حذف کنم.
دستور موجود هیچ تغییراتی روی پنجره ایجاد نمی کنه:

ثابت ها و توابع API:

 Public Const GWL_STYLE As Short = -16

Public Const WS_BORDER = &H800000



    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

متود سفارشی:

Sub SetWindowBorder(Handle As IntPtr)

        Dim lStyle As Long

        lStyle = GetWindowLong(Handle, GWL_STYLE)

        lStyle = lStyle And Not WS_BORDER

        SetWindowLong(Handle, GWL_STYLE, lStyle)

    End Sub

مشکل از کجاست؟