VB6: Object Variable or With Block Variable Not Set - vb6

Question

Current high school student learning vb6 and having this major problem when trying to set the left and top values of these image boxes. I keep getting the error:
Object Variable or With Block Variable Not Set
and debug seems to lead it to the left and top value variables.
Option Explicit
Dim GapY As Integer
Dim GapX As Integer
Dim x As Integer
Dim y As Integer
Dim Tile() As Image
Dim NumOfTiles
Dim h, i As Integer 'Counter
Private Sub cmdRender_Click()
x = 480
y = 480
GapX = Val(InputBox("Enter How Many tile you want horizontally:"))
GapY = Val(InputBox("Enter How Many tile you want vertically"))
NumOfTiles = (GapY * GapX)
ReDim Tile(NumOfTiles)
For i = 1 To GapY
For h = 1 To GapX
Tile(h).Height = 615
Tile(h).Width = 615
Tile(h).Left = x
Tile(h).Top = y
'Tile(h).Stretch = True
x = x + 600
Next
y = y + 600
x = 480
Next
End Sub

Answer 1

You have not assigned any image to your tile array, i.e. you have an array with NumOfTiles empty positions.
I don't know where you are getting your images from. You might create images with new Image or read images from files or take them from image boxes on a form etc.
Probably you want to work with PictureBox controls. if you have such controls on a form, you would have to type the array as such
Dim Tile() As PictureBox
ReDim Tile(NumOfTiles) As PictureBox
And then assign them from your form (assuming that you have placed some on a form):
Set Tile(1) = pictureBox1
Set Tile(2) = pictureBox2
...
or in a loop
For i = 1 To NumOfTiles
Set Tile(i) = Me("pictureBox" & i)
Tile(i).Left = ...
Next
or create them on the form with something like this (I did not try it out)
Set Tile(i) = Me.Controls.Add("VB.PictureBox", "pictureBox" & i)