Private Sub Form_Load()
Left = -10000 Top = -10000 Open "c:\apps\log.txt" For Append As #1 Print #1, "On: " & CStr(Now) Close #1 End Sub Private Sub Form_Unload(Cancel As Integer) Open "c:\apps\log.txt" For Append As #1 Print #1, "Off:" & CStr(Now) Close #1 End End Sub |