如何用API画图？？？

[myrfy2004]

用哪个API建立一个绘图设备，
怎样建立位图
怎样将位图选入设备，
怎样在设备作图？？？？？

[lhxtx]

Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
Private Declare Function PolyBezier Lib "gdi32" (ByVal hdc As Long, lppt As POINTAPI, ByVal cPoints As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Command1_Click()
Dim loc(5) As POINTAPI
'绘制矩形
Rectangle Picture1.hdc, 75, 10, 125, 60

'绘制三角形
loc(0).x = 100: loc(0).y = 80
loc(1).x = 50: loc(1).y = 170
loc(2).x = 150: loc(2).y = 170
Polygon Picture1.hdc, loc(0), 3

'绘制五边形
loc(0).x = 100: loc(0).y = 200
loc(1).x = 50: loc(1).y = 250
loc(2).x = 75: loc(2).y = 300
loc(3).x = 125: loc(3).y = 300
loc(4).x = 150: loc(4).y = 250
Polygon Picture1.hdc, loc(0), 5

'绘制曲线
loc(0).x = 300: loc(0).y = 10
loc(1).x = 170: loc(1).y = 60
loc(2).x = 330: loc(2).y = 110
loc(3).x = 170: loc(3).y = 160
PolyBezier Picture1.hdc, loc(0), 4
End Sub

[myrfy2004]

如何画点？

[wwqna]

pset