You don't set ballock\x or ballock\y anywhere.
This is slightly better...
In addition, you use ballock\x twice in your drawimage...
<edit> and what sswift said. You should have a 'Field Image' in your block type if you want to have different images
This is slightly better...
Restore DATA_BLOCK For I=1 To 10 For J=1 To 3 Read DATA_BLOCK BALLOCK2.BLOCK = New BLOCK If DATA_BLOCK=0 Then Data_BLOCK=0 If DATA_BLOCK=1 Then Data_BLOCK=1 ; If DATA_BLOCK=2 Then Data_BLOCK=2 ;tempX=BALLOCK2\X+I*55 ;tempY=BALLOCK2\Y+J*60 ballock2\x=i*55 ballock2\y=j*60 Next Next
In addition, you use ballock\x twice in your drawimage...
While Not KeyDown (ESCAPE) For BALLOCK2.BLOCK = Each BLOCK DrawImage Block,BALLOCK2\X,BALLOCK2\X+J*60,DATA_BLOCK Next
<edit> and what sswift said. You should have a 'Field Image' in your block type if you want to have different images