module1.bas

很好的教程原代码！

Attribute VB_Name = "Module1"
Option Explicit

Declare Function LineDDA Lib "gdi32" (ByVal n1 As Long, _
    ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, _
    ByVal lpLineDDAProc As Long, ByVal lParam As Long) As Long

Public pX(2048) As Long
Public pY(2048) As Long
Public nPoints As Integer

Sub LineDDAProc(ByVal X As Long, ByVal Y As Long, ByVal lpData As Long)
    pX(nPoints) = X
    pY(nPoints) = Y
    nPoints = nPoints + 1
End Sub