怎样用timer控件来控制窗体的登陆与卸载

[yunboonline]

请教各位timer控件

[guoshous]

设置timer 控件的时间间隔为15000(15秒)然后在timer事件中输入代码:
unload me

[shuchang0626]

'timer 控件所在的窗体加载
Private Sub Form_Load()
Timer1.Interval = 3500
Screen.MousePointer = 11
End Sub

'加载另外一个窗体
Private Sub Timer1_Timer()
Form2.Show '若要卸载,则改成unload form2就行了
Screen.MousePointer = 1
Unload Me
End Sub