Sub KillBorder(CNTRL As Control, Thinkness As Integer)
Dim ret As Long Dim rRect As RECT rRect.Left = Thinkness rRect.Top = Thinkness rRect.Right = CNTRL.Width - Thinkness rRect.Bottom = CNTRL.Height - Thinkness ret = CreateRectRgnIndirect(rRect) SetWindowRgn CNTRL.hWnd, ret, True End Sub |