Type Help!

Ok, I'm getting annoyed and confused I've done this

AppTitle "BreakIn! (beta)"

Local ScreenWidth = 180
Local ScreenHeight = 182
Graphics ScreenWidth,ScreenHeight,32,2

Type WideScreen
Field FileName
Field X
Field Y
End Type

WideScreen.WideScreen = New WideScreen
WideScreen\FileName = LoadImage("WideScreen.bmp")
WideScreen\X = 50
WideScreen\Y = 50

WideScreen.WideScreen = New WideScreen
WideScreen\FileName = LoadImage("WideScreen.bmp")
WideScreen\X = 100
WideScreen\Y = 100

MaskImage WideScreen\FileName,250,250,250

ClsColor 250,250,250

SetBuffer BackBuffer()

While Not KeyDown(1)

Cls

For WideScreen.WideScreen = Each WideScreen
DrawImage WideScreen\FileName,WideScreen\X,WideScreen\Y
Next

Flip

Wend
End

Now It doesn't seem to be making 2 WideScreen's, but instead trying to move the same 1 widescreen, any suggestions?