Plays Help to shoots

Hi,
I´m a beginner in B3D.
Hir is the Code (I can not so good English I come from Germany)
Graphics3D 640,480
SetBuffer BackBuffer()
Dim Ball(100,4)

SB = LoadSprite("S.bmp"):HideEntity SB
SpriteViewMode SB,4
HandleSprite SB,0,0
EntityAutoFade SB,100,1000
ScaleSprite SB,20,30

cam = CreateCamera()
MoveEntity cam,0,10,-20
EntityType cam,1
CameraClsColor cam,0,128,255

;Plane
Plane = CreatePlane()
Tex1 = LoadTexture("Tex1.bmp")
ScaleTexture Tex1,40,40
EntityType Plane,2

EntityTexture Plane,Tex1


While Not KeyHit(1)
Collisions 1,2,2,2

XM# = MouseXSpeed()
YM# = MouseYSpeed()

TurnEntity cam,0,-(XM#/3),0,True
TurnEntity cam,(YM#/3),0,0

MoveMouse GraphicsWidth()/2,GraphicsWidth()/2

If KeyDown(200) Then MoveEntity cam, 0,0,0.5
If KeyDown(208) Then MoveEntity cam, 0,0,-0.5

If MouseHit(1) Then
Schuss = Schuss + 1
If Schuss = 101 Then Schuss = 1
Ball(Schuss,0) = 1
Ball(Schuss,1) = EntityX(cam)-10
Ball(Schuss,2) = EntityY(cam)
Ball(Schuss,3) = EntityZ(cam)+10
Ball(Schuss,4) = CopyEntity(SB)
EndIf

For I=0 To 100
If Ball(I,0) = 1 Then
MoveEntity Ball(I,4),Ball(I,1),Ball(I,2),Ball(I,3)
Ball(I,3) = Ball(I,3) + 1
EndIf
Next

UpdateWorld
RenderWorld
Flip
Wend
End

Whwn I shoot then shot appears somewhere else. Waht have I made wrong? Thank you for the answers

The command 'MoveEntity' should be 'PositionEntity':
PositionEntity Ball(I,4),Ball(I,1),Ball(I,2),Ball(I,3)
-----
EDIT:
-----
Wait .. erm .. thought that was an easy solution, but I was wrong.
First, keep the spriteviewmode standard, so place a ";" comment for the line:

;SpriteViewMode SB,4

Then, when firing, use:

PositionEntity Ball(Schuss,4),EntityX(cam),EntityY(cam),EntityZ(cam)
RotateEntity Ball(Schuss,4),EntityPitch(cam),EntityYaw(cam),EntityRoll(cam)

To place the (new) bullet at the same position as the camera, and rotate it in the same direction as the camera.

Finally, use:

MoveEntity Ball(I,4),0,0,1

To move the bullet.
This means that you don't need Ball(Schuss,1/2/3) anymore.

Thanks for the answer. It has helped very much