VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} GoHomeForm 
   Caption         =   "Go Home Reminder"
   ClientHeight    =   2310
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4710
   OleObjectBlob   =   "GoHomeForm.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "GoHomeForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub RunButton_Click()
    ThisOutlookSession.CreateGoHomeEvent ArrivalTime.Value, SendEmail.Value, ExtraMsg.Value
    GoHomeForm.Hide
End Sub

Private Sub SendEmail_Click()
    ExtraMsg.Enabled = SendEmail.Value
    If SendEmail.Value Then
        ExtraMsg.BackColor = RGB(255, 255, 255)
    Else
        ExtraMsg.BackColor = vbInactiveBorder
    End If
End Sub

Private Sub UserForm_Activate()
    ArrivalTime.Value = DateTime.Now
    SendEmail.Value = True
    ExtraMsg.Value = Empty
End Sub