Private Declare Function CreateIC% Lib "GDI" (ByVal lpDriverName$, ByVal _
     lpDeviceName$, ByVal lpOutput$, ByVal lpInitData&)
Private Declare Function GetProfileString% Lib "Kernel" (ByVal lpAppName$, _
  ByVal _
   lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%)
Private Declare Function GetDeviceCaps% Lib "GDI" (ByVal hDC%, ByVal nindex%)
Private Declare Function DeleteDC% Lib "GDI" (ByVal hDC%)