Рисование нескольких изображений на панели - VB.NET

Question

То, что я пытаюсь сделать, и действительно изо всех сил пытаюсь сделать, состоит в том, чтобы мое приложение рисовало несколько изображений на панели, одно за другим. В настоящее время это кодируется для работы путем отправки запроса в функцию для рисования изображения. Он отправляет значения, которые соответствуют указанному изображению, но после этого я застрял. Я не могу заставить его рисовать что-либо на моей панели. Вот функция:

Function ImageUpdater(ByVal CellNum As Short, ByVal NewImage As Short)
    Dim NewImgLoc As String = CurDirShrt & "\Data\Img\" & NewImage & ".png"
    DrawPic = NewImgLoc
    Try
        InitializeComponent()
        Cell(CellNum) = NewImage
        DrawCell = Cell(CellNum)
        UpdateForm = True
        'PaintMe(panGame, Nothing)
        'e.Graphics.DrawImage(Image.FromFile(NewImgLoc), PicCell(CellNum).X, PicCell(CellNum).Y, CellSize, CellSize)
        'PicCell(CellNum).BackgroundImage = Image.FromFile(NewImgLoc)
        'PicCell(CellNum).Refresh()
    Catch ex As Exception
        InitializeComponent()
        Cell(CellNum) = 0
        DrawCell = Cell(CellNum)
        UpdateForm = True
        'PaintMe(panGame, Nothing)
        'e.Graphics.DrawImage(MisImg, PicCell(CellNum).X, PicCell(CellNum).Y, CellSize, CellSize)
        'PicCell(CellNum).BackgroundImage = MisImg
        'PicCell(CellNum).Refresh()
    End Try
    Return 0
End Function

Предметы, связанные с краской, которые не работали для меня, включали закомментированные строки. Они были прокомментированы, чтобы позволить мне попробовать разные способы заставить панель рисовать.

Что мне нужно добавить к этой функции, чтобы она отправляла изображения и их соответствующие местоположения в подпрограмму PaintEventArgs панели и что мне нужно в этой подпрограмме? Или, если я не отправлю его на этот саб, что мне делать по-другому?

Вот подпункт PaintEventArgs:

Private Sub PaintMe(sender As Object, e As PaintEventArgs) Handles panGame.Paint
    While ChangeInProgress
        Application.DoEvents()
        If UpdateForm = True Then
            e.Graphics.DrawImage(Image.FromFile(DrawPic), PicCell(DrawCell).X, PicCell(DrawCell).Y, CellSize, CellSize)
            UpdateForm = False
        End If
    End While
    Return
End Sub