home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code2 / set_par / setparnt.bas < prev    next >
BASIC Source File  |  1994-04-23  |  817b  |  29 lines
  1. Option Explicit
  2. Global Const Copyright = "Copyright JSS, Inc. Steve Schiavo 1994"
  3. Declare Function SetParent Lib "User" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer
  4. Global Ctrl_hWnd As Integer
  5. Global FrameLoc As Integer
  6. Global Const InForm1 = 1
  7. Global Const InForm2 = 2
  8. ' Show parameters
  9. Global Const MODAL = 1
  10. Global Const MODELESS = 0
  11. ' Colors
  12. Global Const BLACK = &H0&
  13. Global Const RED = &HFF&
  14. Global Const GREEN = &HFF00&
  15. Global Const YELLOW = &HFFFF&
  16. Global Const BLUE = &HFF0000
  17. Global Const MAGENTA = &HFF00FF
  18. Global Const CYAN = &HFFFF00
  19. Global Const WHITE = &HFFFFFF
  20. Global Const GRAY = &HC0C0C0
  21. ' Shape
  22. Global Const RECTANGLE = 0
  23. Global Const SQUARE = 1
  24. Global Const OVAL = 2
  25. Global Const ROUND = 3
  26. Global Const RND_RECT = 4
  27. Global Const RND_SQRE = 5
  28.  
  29.