home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH2 / SRC / LINETO.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-04-18  |  697 b   |  24 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     ' Note the extra argument for 32-bit systems.
  6.     Declare Function MoveToEx Lib "gdi32" ( _
  7.         ByVal hdc As Long, ByVal x As Long, _
  8.         ByVal y As Long, lpPoint As Any) _
  9.         As Long
  10.     
  11.     Declare Function LineTo Lib "gdi32" ( _
  12.         ByVal hdc As Long, ByVal x As Long, _
  13.         ByVal y As Long) As Long
  14. #Else
  15.     Declare Function MoveTo Lib "GDI" ( _
  16.         ByVal hdc As Integer, ByVal x As Integer, _
  17.         ByVal y As Integer) As Long
  18.     
  19.     Declare Function LineTo Lib "GDI" ( _
  20.         ByVal hdc As Integer, ByVal x As Integer, _
  21.         ByVal y As Integer) As Integer
  22. #End If
  23.  
  24.