Public Class Game_Main
    Private WorldMap(9, 9) As PictureBox
    Private MapY As Integer
    Private MapX As Integer
    Private Sub LoadMap()

        worldmap(0, 0) = PictureBox3
        worldmap(1, 0) = PictureBox4
        worldmap(2, 0) = PictureBox5
        worldmap(3, 0) = PictureBox6
        worldmap(4, 0) = PictureBox2
        worldmap(5, 0) = PictureBox1
        worldmap(6, 0) = PictureBox9
        worldmap(7, 0) = PictureBox10
        worldmap(8, 0) = PictureBox7
        worldmap(9, 0) = PictureBox8

        worldmap(0, 1) = PictureBox17
        worldmap(1, 1) = PictureBox18
        worldmap(2, 1) = PictureBox15
        worldmap(3, 1) = PictureBox16
        worldmap(4, 1) = PictureBox19
        worldmap(5, 1) = PictureBox20
        worldmap(6, 1) = PictureBox13
        worldmap(7, 1) = PictureBox14
        worldmap(8, 1) = PictureBox11
        worldmap(9, 1) = PictureBox12

        worldmap(0, 2) = PictureBox37
        worldmap(1, 2) = PictureBox38
        worldmap(2, 2) = PictureBox35
        worldmap(3, 2) = PictureBox36
        worldmap(4, 2) = PictureBox39
        worldmap(5, 2) = PictureBox40
        worldmap(6, 2) = PictureBox33
        worldmap(7, 2) = PictureBox34
        worldmap(8, 2) = PictureBox31
        worldmap(9, 2) = PictureBox32

        worldmap(0, 3) = PictureBox27
        worldmap(1, 3) = PictureBox28
        worldmap(2, 3) = PictureBox25
        worldmap(3, 3) = PictureBox26
        worldmap(4, 3) = PictureBox29
        worldmap(5, 3) = PictureBox30
        worldmap(6, 3) = PictureBox23
        worldmap(7, 3) = PictureBox24
        worldmap(8, 3) = PictureBox21
        worldmap(9, 3) = PictureBox22

        worldmap(0, 4) = PictureBox77
        worldmap(1, 4) = PictureBox78
        worldmap(2, 4) = PictureBox75
        worldmap(3, 4) = PictureBox76
        worldmap(4, 4) = PictureBox79
        worldmap(5, 4) = PictureBox80
        worldmap(6, 4) = PictureBox73
        worldmap(7, 4) = PictureBox74
        worldmap(8, 4) = PictureBox71
        worldmap(9, 4) = PictureBox72

        worldmap(0, 5) = PictureBox67
        worldmap(1, 5) = PictureBox68
        worldmap(2, 5) = PictureBox65
        worldmap(3, 5) = PictureBox66
        worldmap(4, 5) = PictureBox69
        worldmap(5, 5) = PictureBox70
        worldmap(6, 5) = PictureBox63
        worldmap(7, 5) = PictureBox64
        worldmap(8, 5) = PictureBox61
        worldmap(9, 5) = PictureBox62

        worldmap(0, 6) = PictureBox57
        worldmap(1, 6) = PictureBox58
        worldmap(2, 6) = PictureBox55
        worldmap(3, 6) = PictureBox56
        worldmap(4, 6) = PictureBox59
        worldmap(5, 6) = PictureBox60
        worldmap(6, 6) = PictureBox53
        worldmap(7, 6) = PictureBox54
        worldmap(8, 6) = PictureBox51
        worldmap(9, 6) = PictureBox52

        worldmap(0, 7) = PictureBox47
        worldmap(1, 7) = PictureBox48
        worldmap(2, 7) = PictureBox45
        worldmap(3, 7) = PictureBox46
        worldmap(4, 7) = PictureBox49
        worldmap(5, 7) = PictureBox50
        worldmap(6, 7) = PictureBox43
        worldmap(7, 7) = PictureBox44
        worldmap(8, 7) = PictureBox41
        worldmap(9, 7) = PictureBox42

        worldmap(0, 8) = PictureBox97
        worldmap(1, 8) = PictureBox98
        worldmap(2, 8) = PictureBox95
        worldmap(3, 8) = PictureBox96
        worldmap(4, 8) = PictureBox99
        worldmap(5, 8) = PictureBox100
        worldmap(6, 8) = PictureBox93
        worldmap(7, 8) = PictureBox94
        worldmap(8, 8) = PictureBox91
        worldmap(9, 8) = PictureBox92

        worldmap(0, 9) = PictureBox87
        worldmap(1, 9) = PictureBox88
        worldmap(2, 9) = PictureBox85
        worldmap(3, 9) = PictureBox86
        worldmap(4, 9) = PictureBox89
        worldmap(5, 9) = PictureBox90
        worldmap(6, 9) = PictureBox83
        worldmap(7, 9) = PictureBox84
        worldmap(8, 9) = PictureBox81
        worldmap(9, 9) = PictureBox82
    End Sub
    Private Sub UpdateMap()
        '#~~~~~~~~~~~~~~~~~#
        '#@ LOAD GRAPHICS @#
        '#~~~~~~~~~~~~~~~~~#

        For Me.MapY = MapFocusY To MapFocusY + 9
            For Me.MapX = MapFocusX To MapFocusY + 9
                WorldMap(MapX, MapY).Image = My.Resources.ResourceManager.GetObject(libpub.worldmap.tile(MapX, MapY).graphic)
            Next
        Next
    End Sub
    Private Sub Game_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '#~~~~~~~~~~~~#
        '#@ LOAD MAP @#
        '#~~~~~~~~~~~~#
        LoadMap()

        '#~~~~~~~~~~~~~~~~~#
        '#@ SET MAP FOCUS @#
        '#~~~~~~~~~~~~~~~~~#
        MapFocusX = 0
        MapFocusY = 0

        '#~~~~~~~~~~~~~~~~~#
        '#@ LOAD GRAPHICS @#
        '#~~~~~~~~~~~~~~~~~#
        UpdateMap()

    End Sub

    Private Sub PictureBox104_Click(sender As Object, e As EventArgs) Handles PictureBox104.Click
        MapFocusX = MapFocusX + 1
        UpdateMap()
    End Sub
End Class