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