WM_NCHITTEST

Private Const HTBOTTOMRIGHT = 17

Dim rc1 As RECT

Dim rc2 As RECT

Select Case wMsg

Case WM_SIZE

GetClientRect hwnd, rc2

If PtInRect(rc2,rc1.Left,rc1.Top) Then

InvalidateRect hwnd, rc1,True

Else

PostMessage hwnd, WM_PAINT, 0, 0

End If

Case WM_PAINT

GetClientRect hwnd, rc1

(rc1.Left=rc1.Right-GetSystemMetrics(SM_CXSIZE

(rc1.Top=rc1.Bottom - GetSystemMetrics(SM_CYSIZE

DrawFrameControl FrmDC,rc1, DFC_SCROLL,DFCS_SCROLLSIZEGRIP

Case WM_NCHITTEST

GetWindowRect hwnd, rc2

(rc2.Left=rc2.Right -GetSystemMetrics(SM_CXSIZE

(rc2.Top=rc2.Bottom- GetSystemMetrics(SM_CYSIZE

If PtInRect rc2,WordLo(lParam),WordHi(lParam)) Then

WndProc = HTBOTTOMRIGHT

End If 

Private Function WordHi(LongIn As Long) As Integer

(CopyMem(WordHi, ByVal (VarPtr(LongIn) + 2), 2

End Function

Private Function WordLo(LongIn As Long) As Integer

(CopyMem(WordLo, ByVal VarPtr(LongIn), 2

End Function

DFC_CAPTION = 1
            DFC_MENU = 2
            DFC_SCROLL = 3
            DFC_BUTTON = 4
            DFCS_CAPTIONCLOSE =&H0
            DFCS_CAPTIONMIN =&H1
            DFCS_CAPTIONMAX = &H2
            DFCS_CAPTIONRESTORE =&H3
            DFCS_CAPTIONHELP =&H4
            DFCS_MENUARROW =&H0
            DFCS_MENUCHECK =&H1
            DFCS_MENUBULLET =&H2
            DFCS_SCROLLUP = &H0
            DFCS_SCROLLDOWN =&H1
            DFCS_SCROLLLEFT =&H2
            DFCS_SCROLLRIGHT =&H3
            DFCS_SCROLLCOMBOBOX =&H5
            DFCS_BUTTONCHECK =&H0
            DFCS_BUTTONRADIO =&H4
            DFCS_BUTTON3STATE =&H8
            DFCS_BUTTONPUSH =&H10

 DFCS_PUSHED =&H200
            DFCS_CHECKE =&H400

R=ClientRect

(rgn=CreateRoundRectRgn(R.Left, R.Top, R.Right 
(R.Bottom, 20, 20,

InflateRect r, - 4, - 4

SetWindowRgn Handle,rgn,True Invalidate