home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH8 / SRC / SIERP2.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-05-01  |  468 b   |  17 lines
  1. Attribute VB_Name = "Sierp2Stuff"
  2. Option Explicit
  3.  
  4. #If Win32 Then
  5.     Type POINTAPI
  6.         x As Long
  7.         y As Long
  8.     End Type
  9.     Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
  10. #Else
  11.     Type POINTAPI
  12.         x As Integer
  13.         y As Integer
  14.     End Type
  15.     Declare Function Polygon Lib "GDI" (ByVal hdc As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer
  16. #End If
  17.