'Declaration
Protected Overloads Overrides Sub SetBoundsFloat( _
ByVal x As Single, _
ByVal y As Single, _
ByVal width As Single, _
ByVal height As Single _
)
'使用法
Dim instance As PSObject
Dim x As Single
Dim y As Single
Dim width As Single
Dim height As Single
instance.SetBoundsFloat(x, y, width, height)