Private Declare Function SelectObject Lib "gdi32" _
    (ByVal hDC As Long, ByVal hObject As Long) As Long
 
Private Declare Function MoveToEx Lib "gdi32" _
    (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, _
     lpPoint As Any) As Long 'Achtung: Änderung von POINTAPI auf ANY!!!
 
Private Declare Function LineTo Lib "gdi32" _
    (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
 
Private Declare Function DeleteObject Lib "gdi32" _
    (ByVal hObject As Long) As Long
 
Private Declare Function CreatePen Lib "gdi32" _
    (ByVal nPenStyle As Long, ByVal nWidth As Long, _
     ByVal crColor As Long) As Long
 
 
Private Const PS_SOLID = 0
 
'DrawLines: Zeichnet eine Linie in den Gerätekontext
'Parameter: vx = Left Position des Startpunkts
'           vy = Top  Position des Startpunkts
'           bx = Ziehen bis x-Wert
'           by = Ziehen bis y-Wert
'           nS = Linienstärke
'           nC = Linienfarbe
'(c)Lordchen vb@rchiv.de
Private Sub DrawLines(ByVal vx As Long, ByVal vy As Long, _
                      ByVal bx As Long, ByVal by As Long, _
                      ByVal nS As Long, ByVal nC As Long)
   Dim hOldPen As Long
   Dim hPen As Long
   Dim hDC As Long
 
   hDC = Me.hDC
 
   hOldPen = SelectObject(hDC, CreatePen(PS_SOLID, nS, nC))
   MoveToEx hDC, vx, xy, ByVal 0&
   LineTo hDC, bx, by
 
   hPen = SelectObject(hDC, hOldPen)
   DeleteObject hPen
End Sub
 
Private Sub Form_Load()
   AutoRedraw = True
   DrawLines 10, 10, 100, 100, 1, RGB(255, 0, 0)
End Sub