TerrainChar = InputLine(I)
Select Case TerrainChar
  Case 1
    ' draw the wall png at x, y
  Case 2
    ' draw the grass png at x, y
  Case other terrain types - e.g. Water, mountain, etc...
  ...
End Case
' Update the x, y - if last character in line, increment x, reset y, read new line else increment y

Dim mapFileSR As New StreamReader(mapFile)
        Dim index As Integer = 0

        Dim tileXLoc As Point = New Point(0, 0)
        Dim tileYLoc As Point = New Point(32, 32)

        While Not mapFileSR.EndOfStream
            lineoftext = mapFileSR.ReadLine
            If lineoftext <> "" Then
                ReDim Preserve myLines(index)
                myLines(index) = lineoftext

                For y As Integer = 0 To myLines.Length - 1

                    For x As Integer = 0 To myLines(y).Length - 1

                        tileXLoc.Y = y * 32
                        tileXLoc.X = x * 32

                        Select Case myLines(y).Substring(x, 1)

                            Case CChar("1") 'Grass
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                           New Rectangle(0, 0, 32, 32), GraphicsUnit.Pixel)

                            Case CChar("2") 'Stone Wall
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                       New Rectangle(32, 0, 32, 32), GraphicsUnit.Pixel)

                            Case CChar("3") 'Floor Boards
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                       New Rectangle(64, 0, 32, 32), GraphicsUnit.Pixel)

                            Case CChar("4") 'Stone in Grass
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                       New Rectangle(0, 32, 32, 32), GraphicsUnit.Pixel)

                            Case CChar("5") 'Dirt in Grass
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                       New Rectangle(32, 32, 32, 32), GraphicsUnit.Pixel)

                            Case CChar("6") 'Dirt
                                e.Graphics.DrawImage(tiles, New Rectangle(tileXLoc, CType(tileYLoc, Drawing.Size)), _
                                       New Rectangle(64, 32, 32, 32), GraphicsUnit.Pixel)

                        End Select
                    Next x
                Next y

                index += 1

            End If
        End While

        'Draw the Hero to the screen - only here for testing purposes
        e.Graphics.DrawImage(heroSprite, New Rectangle(64, 64, 32, 32), _
                                    New Rectangle(160, 0, 32, 32), GraphicsUnit.Pixel)