Timer issue on VB6

[Ellis Dee]

That's odd; the code should work. Try changing the timer code to this and see what the msgbox says:

Private Sub Timer1_Timer()
    If DateDiff("n", mdtmLastActivity, Now()) >= 30 Then
        MsgBox DateDiff("n", mdtmLastActivity, Now()) & " minutes elapsed"
        Unload Me
    End If
End Sub