求教

在只有一个窗体时，可以实现倒计时功能，但是当从另外一个窗体中加载这个窗体，倒计时功能怎么不能用了？在一个窗体里有个case语句，当我输入1101--1199之间的数时  会加载窗体Frm_State1，但是倒计时功能没了，请问这是为什么？怎样解决？谢谢
    Case 1101 To 1199
        Load Frm_State1
     Frm_State1.Show
     Unload Me
    Option ExplicitDim lTime As LongPrivate Sub Frm_State1_Load()    lTime = 300 ' 100秒倒计时
    Timer1.Interval = 1000 ' 每秒发生一次Timer事件End SubPrivate Sub Timer1_Timer()
    Dim strHour As String   '时
    Dim strMin As String    '分
    Dim strSecond As String '秒
    lTime = lTime - 1    strHour = lTime \ 3600
    strMin = (lTime Mod 3600) \ 60
    strSecond = lTime - strHour * 3600 - strMin * 60    Label1.Caption = Format(strHour, "#00") & ":" & Format(strMin, "#00") & ":" & Format(strSecond, "#00")    If lTime = 0 Then
        MsgBox "时间已到!"
    End If
End Sub