Public Sub PositionComponent( _
   ByVal pProfile As Object, _
   ByVal x As Double, _
   ByVal y As Double, _
   Optional ByVal Angle As Variant, _
   Optional ByRef ComponentStatusConstants As Variant _
)