Dim testbody As X2BodyWrapper
Dim bd As B2BodyDef
bd.BodyType = bd.TYPE_DYNAMIC
bd.Position.Set(WorldWidth/2,WorldHeight/2)
testbody = X2.CreateBodyAndWrapper(bd, Null,"testbody")
Dim circle As B2CircleShape
circle.Initialize(0.5)
Dim poly As B2PolygonShape
poly.Initialize
poly.SetAsBox(1,1)
testbody.Body.CreateFixture2(poly,1)
testbody.Body.CreateFixture2(circle,1)