Sub Init_ImageLayout
For Col = 0 To 3 'Sets Up the deck (7 columns by 22 rows)
TestImage(Col,0).Initialize("TestImage")
TestImage(Col,0).SetImage(fx.LoadImage(File.DirAssets,"Transparent.png"))
MainForm.RootPane.AddNode(TestImage(Col,0),350+(Col*130),10,105,150)
TestImage(Col,0).Visible=True
TestImage(Col,0).Tag = Col & "_"& 0
setPickOnBounds(TestImage(Col, 0))
Next
For Col = 4 To 6 'Sets Up the deck (7 columns by 22 rows)
TestImage(Col,0).Initialize("TestImage")
TestImage(Col,0).SetImage(fx.LoadImage(File.DirAssets,"Blank.png"))
MainForm.RootPane.AddNode(TestImage(Col,0),350+(Col*130),10,105,150)
TestImage(Col,0).Visible=True
TestImage(Col,0).Tag = Col & "_"& 0
setPickOnBounds(TestImage(Col, 0))
Next
End Sub