[مساعدة]

السلام عليكم

هذا الكود الذي يقرأ الملف PacMan.txt ويضعها في مصفوفة مع وضع أداة Timer والصورة يكون في الأداة PictureBox وبخاصية AutoSize

كود :

Public Class Form1

    Dim arrPacMan() As String

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        arrPacMan = IO.File.ReadAllLines("PacMan.txt")
        Timer1.Start()
    End Sub

    Private pntPacMan As Integer = 0
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim s() As String = arrPacMan(pntPacMan).Split
        Dim pnt As New Point(s(0), s(1))
        Me.PictureBox1.Location = pnt
        pntPacMan += 1
        If pntPacMan = Me.ListBox1.Items.Count Then
            pntPacMan = 0
            Timer1.Stop()
        End If

    End Sub

End Class