Нужна помощь с Border style - VB

Формулировка задачи:

Добрый день други!
Проблема в следующем - нужна рамка для формы, но не такая как в стандартном Border style! Можно ли как-нибудь изменить существующие или свою сделать??

Решение задачи: «Нужна помощь с Border style»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Enum</font> eBorderStyleConstants
    bsNone = <font color="darkblue"><b>0</b></font>
    bsThin = <font color="darkblue"><b>1</b></font>
    bsThick = <font color="darkblue"><b>2</b></font>
<font color="blue">End</font> <font color="blue">Enum</font>

<font color="blue">Public</font> <font color="blue">Sub</font> pvSetBorderStyle(<font color="blue">ByVal</font> lhWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> eStyle <font color="blue">As</font> <font color="blue">Long</font>)
    <font color="blue">Select</font> <font color="blue">Case</font> eStyle
        <font color="blue">Case</font> <font color="darkblue"><b>0</b></font>: <font color="blue">Call</font> pvSetWinExStyle(lhWnd, GWL_EXSTYLE, <font color="darkblue"><b>0</b></font>, WS_EX_STATICEDGE <font color="blue">Or</font> WS_EX_CLIENTEDGE <font color="blue">Or</font> WS_EX_WINDOWEDGE)
        <font color="blue">Case</font> <font color="darkblue"><b>1</b></font>: <font color="blue">Call</font> pvSetWinExStyle(lhWnd, GWL_EXSTYLE, WS_EX_STATICEDGE, WS_EX_CLIENTEDGE <font color="blue">Or</font> WS_EX_WINDOWEDGE)
        <font color="blue">Case</font> <font color="darkblue"><b>2</b></font>: <font color="blue">Call</font> pvSetWinExStyle(lhWnd, GWL_EXSTYLE, WS_EX_CLIENTEDGE, WS_EX_STATICEDGE <font color="blue">Or</font> WS_EX_WINDOWEDGE)
    <font color="blue">End</font> <font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> pvSetWinExStyle(<font color="blue">ByVal</font> lhWnd <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lType <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lStyle <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> lStyleNot <font color="blue">As</font> <font color="blue">Long</font>)
<font color="blue">Dim</font> lS <font color="blue">As</font> <font color="blue">Long</font>
    lS = GetWindowLong(lhWnd, lType)
    lS = (lS <font color="blue">And</font> <font color="blue">Not</font> lStyleNot) <font color="blue">Or</font> lStyle
    <font color="blue">Call</font> SetWindowLong(lhWnd, lType, lS)
    <font color="blue">Call</font> SetWindowPos(lhWnd, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>, SWP_NOMOVE <font color="blue">Or</font> SWP_NOSIZE <font color="blue">Or</font> SWP_NOOWNERZORDER <font color="blue">Or</font> SWP_NOZORDER <font color="blue">Or</font> SWP_FRAMECHANGED)
<font color="blue">End</font> <font color="blue">Sub</font>
                        