VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "TimeOut" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" Attribute VB_Ext_KEY = "Top_Level" ,"Yes" Private mvarStartTime As Date Private mvarInterval As Double Private mvarTType As String Public Sub StopTimer() mvarStartTime = CDate("0:0:0") mvarInterval = 0 mvarTType = "" ' written by IWiz mity@ropnet.ru End Sub Public Function StartTimer(Interval As Integer, TType As String) As Boolean mvarStartTime = Time mvarInterval = Interval mvarTType = TType ' written by IWiz mity@ropnet.ru End Function Public Function QuitOnTimeout() As Boolean If mvarTType = "" Then Exit Function End If If Time > DateAdd(mvarTType, mvarInterval, mvarStartTime) Then QuitOnTimeout = True ' written by IWiz mity@ropnet.ru End Function