home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.Form frmTDLshow
- BorderStyle = 3 'Fixed Dialog
- Caption = "Show or Hide To Do List"
- ClientHeight = 1635
- ClientLeft = 1695
- ClientTop = 1995
- ClientWidth = 5025
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- PaletteMode = 1 'UseZOrder
- ScaleHeight = 1635
- ScaleWidth = 5025
- ShowInTaskbar = 0 'False
- Begin VB.CommandButton btnHide
- Caption = "Hide"
- Height = 375
- Left = 2820
- TabIndex = 3
- Top = 1080
- Width = 1455
- End
- Begin VB.CommandButton btnShow
- Caption = "Show"
- Height = 375
- Left = 960
- TabIndex = 2
- Top = 1080
- Width = 1455
- End
- Begin VB.Line Line1
- X1 = 60
- X2 = 4980
- Y1 = 900
- Y2 = 900
- End
- Begin VB.Label Label5
- Caption = "This form uses the following FrontPage To Do List methods:"
- Height = 255
- Left = 60
- TabIndex = 1
- Top = 120
- Width = 4935
- End
- Begin VB.Label Label6
- Alignment = 2 'Center
- Caption = "vtiShow, vtiHide"
- Height = 255
- Left = 60
- TabIndex = 0
- Top = 480
- Width = 4935
- WordWrap = -1 'True
- End
- Attribute VB_Name = "frmTDLshow"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Private Sub btnHide_Click()
- Dim todolist As Object
- Set todolist = CreateObject("FrontPage.ToDoList")
- todolist.vtiHide
- Set todolist = Nothing
- End Sub
- Private Sub btnShow_Click()
- Dim todolist As Object
- Set todolist = CreateObject("FrontPage.ToDoList")
- todolist.vtiShow
- Set todolist = Nothing
- End Sub
-