Ukládání  spouštění Windows

Postup:
Private Sub Form_Load() 

    Left = -10000 
    Top = -10000 

    Open "c:\appslog.txt" For Append As #1 
    Print #1, "Start: " & CStr(Now) 
    Close #1 

End Sub

Private Sub Form_Unload(Cancel As Integer) 

    Open "c:\appslog.txt" For Append As #1 
    Print #1, "Konec:" & CStr(Now) 
    Close #1 
    End 

End Sub

Zpět