X2.GraphicCache.PutGraphic2("mystery", Array(X2.LoadBmp(File.DirAssets, "mystery.png", 1, 0.5, True)), True, 2) '<-- only needed once
Dim bd As B2BodyDef
bd.BodyType = bd.TYPE_STATIC
bd.Position = X2.CreateVec2(3, 3)
Dim Mystery As X2BodyWrapper = X2.CreateBodyAndWrapper(bd, Null, "mystery")
Mystery.GraphicName = "mystery"
Dim shape As B2CircleShape
shape.Initialize(0.1) 'size doesn't matter. The shape is needed as only "visible" bodies are drawn.
Mystery.Body.CreateFixture2(shape, 1).SetFilterBits(0, 0)