Sub Form_Load()
 
      Me.WindowState = 2  ' Maximize to fit all info on screen.
 
      Command1.Caption = "Printer"    ' Set up command buttons.
      Command2.Caption = "Screen"
      Command3.Caption = "Other"
      Command1.Top = 0
      Command2.Top = 0
      Command3.Top = 0
 
End Sub
 
Sub Form_Resize()
 
      Command3.Left = Form1.ScaleWidth - Command3.Width
      Command2.Left = Command3.Left - Command2.Width
      Command1.Left = Command2.Left - Command1.Width
 
End Sub
 
 Sub Command1_Click()
      Me.Show
      Form1.Cls
      Form1.Caption = "Printer Device Capabilities"
 
      Dim szprinter$
      ' Get printer information from WIN.INI:
      szprinter$ = Space$(128)
      a% = GetProfileString("windows", "device", "", szprinter$, 64)
 
      a1$ = Left$(szprinter$, a%) ' These lines find the commas in the text
      a2% = InStr(a1$, ",")       ' and strip them out.
      print_device$ = Left$(a1$, a2% - 1)  ' Hold printer device info
      Print "Printer = ", print_device$
      a3$ = Mid$(a1$, a2% + 1)
      a4% = InStr(a3$, ",")
      driver$ = Left$(a3$, a4% - 1)    ' Hold printer driver info.
      Print "Driver = ", driver$
      Port$ = Mid$(a1$, a2% + a4% + 1) ' Hold printer port info.
      Print "Port = ", Port$
 
      a5 = CreateIC(driver$, print_device$, Port$, 0)
      a6% = GetDeviceCaps(a5, 0)
      Print "Driver Version : "; Hex$(a6%)
      Print
      z1% = Get_Device_Information(a5)
      finished% = DeleteDC(a5)
   End Sub
 
   Sub Command2_Click()
      Dim a5 As Long
 
      Me.Show
      Form1.Cls
      Form1.Caption = "Screen Device Capabilities"
      a5 = CreateIC("DISPLAY", "", "", 0&)
      Print
      z1% = Get_Device_Information(a5)
      finished% = DeleteDC(a5)
   End Sub