S>Class Test S> Sub Ping(a) S> nCount = nCount + 1 S> if nCount > 15 then exit sub S> Me.Ping a S> End Sub S>End Class