home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / BM_Note_Va2183716272010.psc / NoteVault / ctrl / Line3d.ctl < prev    next >
Text File  |  2008-11-08  |  1KB  |  39 lines
  1. VERSION 5.00
  2. Begin VB.UserControl Line3D 
  3.    AutoRedraw      =   -1  'True
  4.    ClientHeight    =   90
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   1905
  8.    ScaleHeight     =   90
  9.    ScaleWidth      =   1905
  10.    ToolboxBitmap   =   "Line3d.ctx":0000
  11. End
  12. Attribute VB_Name = "Line3D"
  13. Attribute VB_GlobalNameSpace = False
  14. Attribute VB_Creatable = True
  15. Attribute VB_PredeclaredId = False
  16. Attribute VB_Exposed = False
  17. Option Explicit
  18.  
  19. Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
  20.  
  21. Private Const DM_LINE_SHADOW = 16
  22. Private Const COLOR_BTNHIGHLIGHT As Long = 20
  23.  
  24. Private Sub DrawLine()
  25.     UserControl.Line (0, 15)-(ScaleWidth, 15), GetSysColor(COLOR_BTNHIGHLIGHT)
  26.     UserControl.Line (0, 0)-(ScaleWidth, 0), GetSysColor(DM_LINE_SHADOW)
  27. End Sub
  28.  
  29. Private Sub UserControl_Initialize()
  30.     Call DrawLine
  31. End Sub
  32.  
  33. Private Sub UserControl_Resize()
  34.  On Error Resume Next
  35.     UserControl.Height = 30
  36.     DrawLine
  37. End Sub
  38.  
  39.