VB间接引用的Flash如何调低画质

Question

Option Explicit

Private Sub Form_Load()
Dim tmpCtl As Object
Set tmpCtl = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash")
tmpCtl.Width = Me.Width - 300
tmpCtl.Height = Me.Height - 560
tmpCtl.Visible = True
tmpCtl.Left = 35
tmpCtl.Top = 20
tmpCtl.object.LoadMovie 0, "swf地址"
End Sub
以上是引用代码，我想修改他的quality属性怎么办？求助，谢谢

Answer 1

tmpCtl.quality不行么。