Option Explicit’ This structure holds Bitmap informationPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd Type’ This structure holds SAFEARRAY infoPrivate Type SafeArray2 cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long
‘ This structure holds Bitmap informationPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd Type’ This structure holds SAFEARRAY infoPrivate Type SafeArray2 cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long pvData
‘ Draw a polygon, given its center and number of sides’ CTRL can be either a form or a PictureBox control.’ ANGLE is an optional angle in degreesSub DrawPolygon(ctrl As Object, ByVal xc As Single, ByVal yc As Single, _ ByVal side As Single, ByVal numSides As Integer, _ Optional
‘ This structure holds Bitmap informationPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd TypePrivate Declare Function GetObjectAPI Lib “gdi32” Alias “GetObjectA” (ByVal _ hObject As Long, ByVal nCount As Long, lpObject As Any) As
‘ This structure holds Bitmap informationPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd Type’ This structure holds SAFEARRAY infoPrivate Type SafeArray2 cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long pvData
‘ This structure holds Bitmap informationPrivate Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As LongEnd Type’ This structure holds SAFEARRAY infoPrivate Type SafeArray2 cDims As Integer fFeatures As Integer cbElements As Long cLocks As Long pvData