ترسیم خط با Polyline

Const NUM =1000

(Const TWOPI = (2 * 3.14159

WndProc 

static int cxClient,cyClient

Dim apt(NUM) As POINTAPI

WM_PAINT 

(MoveToEx hdc, 0, cyClient / 2, NULL

(LineTo  hdc,cxClient,cyClient / 2

i=0

Do

apt(i).x = i * cxClient / NUM

(((apt(i).y =(cyClient / 2 * (1 - sin (TWOPI * i / NUM

i=i+1

Loop Until I<NUM

Polyline  hdc, apt, NUM