VB6.0 【GDI+ 画直线】

‘窗口代码
Option Explicit
Dim m_graphics As Long '设备场景的句柄
Dim m_Pen As Long '画笔
Private Sub Form_Load()
    InitGDIPlus '初始化
    GdipCreateFromHDC Me.hDC, m_graphics '创建自DC图形
    GdipCreatePen1 ChangeColor(255), 1, UnitPixel, m_Pen '创建画笔
    GdipDrawLineI m_graphics, m_Pen, 20, 100, 560, 100 '画直线I
End Sub

Private Sub Form_Unload(Cancel As Integer)
    GdipDeletePen m_Pen '删除画笔
    GdipDeleteGraphics m_graphics '释放内存
    TerminateGDIPlus  'Gdiplus关闭
End Sub
‘窗口代码
Option Explicit
Dim m_graphics A