-Sub Main
- cmd_love
-end sub
-Sub cmd_love
- StartDate.txt = "July 6th 2003 @ 10:02pm"
- cmd_TimeElaspes
- If Depression.Boolean = True then
- cmd_OutOfLuck
- end if
-end sub
-cmd_TimeElaspes
- cmd_GoodTimes
- if BadTimes.boolean = true then
- cmd_WorkItOut
- EndDate.txt = "January 19th 2006 @ ~5:00pm"
- Msgbox ("We need to take a break",vbOkOnly)
- Depression.boolean = True
- end if
-end sub
-Sub cmd_OutOfLuck
- TimeElaspe = "2 years 6 months 1 week 6 days ~19 hours"
- Duration.txt = TimeElaspe
- Duration.visible = True
- ItsOver.visiable = True
-end sub
-sub cmd_WorkItOut
- Msgbox ("Unhandled exception violation",vbOKOnly)
-end sub
-// Scott Borger (c) 2006