[sooriaty03]

السلام عليكم
هذا هو الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim newName As New FileInfo("C:\Users\Name\Desktop\photo\a.jpg")
        newName.MoveTo("C:\Users\Name\Desktop\photo" + Label1.Text + ".jpg")
        Label1.Text = "Label" & (Val(Label1.Text.Substring(5)) + 1)
    End Sub

بالتوفيق