I've been working on a tile map and I can't seem to get it to work correctly. Here is all of my code so far, this is all pretty new stuff to me so I'm sure there is much wrong with it. I am trying to make it draw them in a picturebox. Any help would be appreciated.
-------------------------------------
Form called startup
-------------------------------------
Private Sub Form_Load()
Map.Int_Map
End Sub

Sub Draw_Position()
For X = 0 To 9
For Y = 0 To 9
Select Case look_at
Case Is = "A"
Picture1.PaintPicture imggrass.Picture, (X + 3) * 32, (Y + 3) * 32
Case Is = "B"
Picture1.PaintPicture imgblue.Picture, (X + 3) * 32, (Y + 3) * 32
Case Is = "C"
Picture1.PaintPicture imgmountain.Picture, (X + 3) * 32, (Y + 3) * 32
End Select
Next Y
Next X
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
look_at = Mid(Map.Map(Char_Y + 1 - 1), Char_X + 1, 1)
If look_at = "A" Then
Char_Y = Char_Y - 1
Char_Face = 1
Draw_Position
End If
Case vbKeyDown
look_at = Mid(Map.Map(Char_Y + 1 + 1), Char_X + 1, 1)
If look_at = "A" Then
Char_Y = Char_Y + 1
Char_Face = 1
Draw_Position
End If
Case vbKeyRight
look_at = Mid(Map.Map(Char_Y + 1), Char_X + 1 + 1, 1)
If look_at = "A" Then
Char_X = Char_X + 1
Char_Face = 1
Draw_Position
End If
Case vbKeyLeft
look_at = Mid(Map.Map(Char_Y + 1), Char_X + 1 - 1, 1)
If look_at = "A" Then
Char_X = Char_X - 1
Char_Face = 1
Draw_Position
End If
End Select
End Sub
-----------------------------------------------
Module called Map
----------------------------------------------
Public Char_Y As Single
Public Char_X As Single
Public Char_Face As Single
Public Draw_Position As Single
Public Y As Single
Public X As Single
Public look_at As String
Public Map(50) As String

Sub Int_Map()
Map(0) = "BBBBBBBBBBBBBBBBBBB"
Map(1) = "BBBBBAAAAAAABBBBBBB"
Map(2) = "BBBAAAAAAAAAAABBBBB"
Map(3) = "BAAAAACAAAAAAAAAAAB"
Map(4) = "BAAAAAAAAAAAAAAAAAB"
Map(5) = "BAAAAAAAAACAAAAAAAB"
Map(6) = "BAAAAAAAAAAAAAAAAAB"
Map(7) = "BAAAAAAAAAAAAAAAAAB"
Map(8) = "BAAAAAAAAAAAAAAAAAB"
Map(9) = "BBBBAAAAAACAAAAAABB"
Map(10) = "BBBBBBBBBBBBBBBBBBB"
Char_Y = 1
Char_X = 1
Char_Face = 1
startup.Draw_Position
End Sub