vb6中Timer因加载的内容变得不稳定，求解决办法

vb6中Timer因加载的内容变得不稳定，求解决方法
问题：程序设定是每100毫秒打印出一个时间，当加载不稳定的flash时，Timer变得不稳定，求原因及解决方法。或者提供其他思路替换。（每秒的显示和不同的flash是必要的）窗体和flash传不上去，我qq550759049，求帮助，跪谢。

vb6窗体界面如下：


vb6代码如下：

Dim flash(0 To 100) As Object

Dim MenuTabIdMax


Private Sub Command1_Click()

    Text2.Text = "E:\Work\vb\18587\26_4891334782610.swf" '稳定的

End Sub


Private Sub Command2_Click()

    Text2.Text = "E:\Work\vb\18749\5_8642278.swf" '不稳定的

End Sub


Private Sub Command3_Click()

    MenuTabIdMax = MenuTabIdMax + 1

    Set flash(MenuTabIdMax) = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash" & MenuTabIdMax)

    Set flash(MenuTabIdMax).Container = Form1

    flash(MenuTabIdMax).Top = 100 * 15

    flash(MenuTabIdMax).Left = 200 * 15

    flash(MenuTabIdMax).Width = 200 * 15

    flash(MenuTabIdMax).Height = 200 * 15

    flash(MenuTabIdMax).object.LoadMovie 0, Text2.Text

    flash(MenuTabIdMax).Visible = True

End Sub


Private Sub Form_Load()

    MenuTabIdMax = 0

    Timer1.Interval = 100

    Timer1.Enabled = True

End Sub


Private Sub Timer1_Timer()

    Text1.Text = Now() & vbCrLf & Text1.Text

End Sub

------解决方案--------------------
操作系统计时精度≈15ms
------解决方案--------------------
放弃VB，它并不是一种严谨的开发工具，因为不支持多线程，它没法实现你的要求
------解决方案--------------------

你编译成 .exe 之后也有同样问题吗？
------解决方案--------------------
Private Sub Timer16_Timer()
    Timer16.Enabled = False
    要执行的代码
    Timer16.Enabled = ture
End Sub
------解决方案--------------------
不用timer控件，用其他的方法。