'Dim rect As B2PolygonShape
'rect.Initialize
Dim size As B2Vec2 = X2.GraphicCache.GetGraphicSizeMeters(wrapper.GraphicName, 0)
'rect.SetAsBox(size.X / 2, size.Y / 2)
'wrapper.Body.CreateFixture2(rect, 0.2)
Dim bShape As B2CircleShape
bShape.Initialize(size.Y / 2)
Dim fix As B2FixtureDef
fix.Shape = bShape
fix.Density = 0.2
wrapper.Body.CreateFixture(fix)