Gradient Button ( باتن با سطح شیب دار) / DrawCloseButton ( رسم باتن کلوز )

Dim rc As RECT

rc.left = 0

rc.top = 0

rc.right = 260

rc.bottom = 80

Dim hpen

draw gradient button'

Dim i As Integer

i=0

Do

((hpen=CreatePen(PS_SOLID,4,RGB(150-i,0,0

SelectObject hdc, hpen

Rectangle hdc, 0, 0 + i, 262, 1 + i

DeleteObject hpen

(SetBkColor hdc,RGB(130,0,0

(SetTextColor hdc, RGB(255,255,255

TextOut hdc,90,27,"Hello World",11

i=i+1

Loop Until i<80

PS_SOLID=0
PS_DASH=1
PS_DOT=2
PS_DASHDOT=3
PS_DASHDOTDOT=4
PS_INSIDEFRAME=6
PS_GEOMETRIC=65536
PS_ENDCAP_FLAT=512
PS_ENDCAP_MASK=3840
PS_JOIN_BEVEL=4096
PS_JOIN_MITER=8192

(DrawCloseButton(HDC hdc

RECT rc

rc.left=0

rc.top=0

rc.right=30

rc.bottom=30

((br=CreateSolidBrush(RGB(0, 0, 0

FillRect hdc,rc,br

(SetBkColor hdc, RGB(0, 0, 0

(SetTextColor hdc,RGB(255, 255, 255

(TextOut hdc,10,8,"X",1