如何用API画图？？？

Question

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

Answer 1

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