Private Function Get_Device_Information(ByVal hdc As Long)
      Dim a7 As Long, a8 As Long, a9 As Long, a10 As Long
      Dim a11 As Long, a12 As Long, a13 As Long, a14 As Long
      Dim a15 As Long, a16 As Long, a17 As Long, a18 As Long
      Dim a19 As Long, a20 As Long, a21 As Long, a22 As Long
      Dim a23 As Long, a24 As Long, a25 As Long, a26 As Long
 
      a7 = GetDeviceCaps(hdc, HORZSIZE)
      Print "(HORZSIZE)", , "Width in millimeters:", a7
      a8 = GetDeviceCaps(hdc, VERTSIZE)
      Print "(VERTSIZE)", , "Height in millimeters:", a8
      a9 = GetDeviceCaps(hdc, HORZRES)
      Print "(HORZRES)", , "Width in Pixels:", a9
      a10 = GetDeviceCaps(hdc, VERTREZ)
      Print "(VERTREZ)", , "Height in raster Lines:", a10
      a11 = GetDeviceCaps(hdc, BITSPIXEL)
      Print "(BITSPIXEL)", , "Color bits per Pixel:", a11
      a12 = GetDeviceCaps(hdc, PLANES)
      Print "(PLANES)", , "Number of Color Planes:", a12
      a13 = GetDeviceCaps(hdc, NUMBRUSHES)
      Print "(NUMBRUSHES)", "Number of device brushes:", a13
      a14 = GetDeviceCaps(hdc, NUMPENS)
      Print "(NUMPENS)", , "Number of device pens:", a14
      a15 = GetDeviceCaps(hdc, NUMMARKERS)
      Print "(NUMMARKERS)", "Number of device markers:", a15
      a16 = GetDeviceCaps(hdc, NUMFONTS)
      Print "(NUMFONTS)", "Number of device fonts:", a16
      a17 = GetDeviceCaps(hdc, NUMCOLORS)
      Print "(NUMCOLORS)", "Number of device colors:", a17
      a18 = GetDeviceCaps(hdc, PDEVICESIZE)
      Print "(PDEVICESIZE)", "Size of device structure:", a18
      a19 = GetDeviceCaps(hdc, ASPECTX)
      Print "(ASPECTX)", , "Relative width of pixel:", a19
      a20 = GetDeviceCaps(hdc, ASPECTY)
      Print "(ASPECTY)", , "Relative height of pixel:", a20
      a21 = GetDeviceCaps(hdc, ASPECTXY)
      Print "(ASPECTXY)", , "Relative diagonal of pixel:", a21
      a22 = GetDeviceCaps(hdc, LOGPIXELSX)
      Print "(LOGPIXELSX)", "Horizontal dots per inch:", a22
      a23 = GetDeviceCaps(hdc, LOGPIXELSY)
      Print "(LOGPIXELSY)", "Vertical dots per inch:", a23
      a24 = GetDeviceCaps(hdc, SIZEPALETTE)
      Print "(SIZEPALETTE)", "Number of palette entries:", a24
      a25 = GetDeviceCaps(hdc, NUMRESERVED)
      Print "(NUMRESERVED)", "Reserved palette entries:", a25
      a26 = GetDeviceCaps(hdc, SIZEPALETTE)
      Print "(SIZEPALETTE)", "Actual color resolution:", a26
End Function