scheduler.frm

Some scheduling software.

         TabIndex        =   5
         Top             =   840
         Width           =   2895
      End
      Begin VB.TextBox txtTitle 
         Alignment       =   2  'Center
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   420
         Left            =   1320
         TabIndex        =   3
         Text            =   "Title of my schedule"
         Top             =   240
         Width           =   3255
      End
      Begin VB.CommandButton cmdPickDate 
         DownPicture     =   "scheduler.frx":05C4
         Height          =   375
         Index           =   0
         Left            =   4800
         Picture         =   "scheduler.frx":0876
         TabIndex        =   2
         Top             =   840
         Width           =   375
      End
      Begin VB.CheckBox chkEveryday 
         Caption         =   "Everyday"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   1920
         TabIndex        =   1
         Top             =   3840
         Width           =   1335
      End
      Begin VB.Label Label6 
         Caption         =   "Notes to apear on the message board"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Left            =   120
         TabIndex        =   21
         Top             =   4200
         Width           =   3735
      End
      Begin VB.Label Label5 
         Caption         =   "Minutes"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   3120
         TabIndex        =   17
         Top             =   1920
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Hour"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   1920
         TabIndex        =   16
         Top             =   1920
         Width           =   615
      End
      Begin VB.Label Interval 
         Caption         =   "Interval"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   480
         TabIndex        =   15
         Top             =   3240
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Stop Time"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Index           =   1
         Left            =   480
         TabIndex        =   14
         Top             =   2760
         Width           =   1095
      End
      Begin VB.Label Label3 
         Caption         =   "Start Time"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Index           =   0
         Left            =   480
         TabIndex        =   9
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Label Label2 
         Caption         =   "Ending date"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   375
         Left            =   480
         TabIndex        =   7
         Top             =   1320
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "Starting date"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H80000002&
         Height          =   255
         Left            =   480
         TabIndex        =   4
         Top             =   960
         Width           =   1215
      End
   End
End
Attribute VB_Name = "scheduler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdPickDate_Click(Index As Integer)
    calender.Show vbModal
    Me.txtDate(0) = calender.iDate
End Sub

Private Sub txtTitle_Click()
    If txtTitle.Text = "Title of my schedule" Then
        txtTitle.Text = ""
    End If
End Sub

Private Sub txtTitle_LostFocus()
    If txtTitle.Text = "" Then
        txtTitle.Text = "Title of my schedule"
    End If
End Sub