home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.UserControl EventList
- ClientHeight = 1680
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 3450
- ScaleHeight = 1680
- ScaleWidth = 3450
- Begin VB.ListBox lstItems
- BeginProperty Font
- Name = "Tahoma"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1425
- IntegralHeight = 0 'False
- Left = 0
- TabIndex = 0
- Top = 0
- Width = 2535
- End
- End
- Attribute VB_Name = "EventList"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = False
- Option Explicit
- DefInt A-Z
-
- Sub Add(Data$)
- Static Count As Long
- Count = Count + 1
- lstItems.AddItem Count & vbTab & Data$
- lstItems.ListIndex = lstItems.NewIndex
- End Sub
-
-
- Sub Clear()
- lstItems.Clear
- End Sub
-
-
- Private Sub UserControl_InitProperties()
- UserControl_Resize
- End Sub
-
-
- Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
- UserControl_Resize
- End Sub
-
-
- Private Sub UserControl_Resize()
- On Error Resume Next
- lstItems.Move 0, 0, ScaleWidth, ScaleHeight
- On Error GoTo 0
- End Sub
-
-
-