home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / tool / various / barvbx / createbc.bas < prev    next >
BASIC Source File  |  1995-02-27  |  704b  |  21 lines
  1. Type DOCINFO
  2.    cbSize As Integer
  3.    DocName As Long
  4.    Output As Long
  5. End Type
  6.  
  7. Global Const PD_RETURNDC = &H100&
  8. Global Const PD_PRINTSETUP = &H40&
  9.  
  10. Declare Function StartDoc Lib "GDI" (ByVal hDC As Integer, lpdi As DOCINFO) As Integer
  11. Declare Function EndPage Lib "GDI" (ByVal hDC As Integer) As Integer
  12. Declare Function EndDocAPI Lib "GDI" Alias "EndDoc" (ByVal hDC As Integer) As Integer
  13. Declare Function StartPage Lib "GDI" (ByVal hDC As Integer) As Integer
  14. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  15.  
  16. Sub CenterWindow (theForm As Form)
  17.   theForm.Top = (Screen.Height - theForm.Height) / 2
  18.   theForm.Left = (Screen.Width - theForm.Width) / 2
  19. End Sub
  20.  
  21.