[مبتدئ]

كود :

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 = Label1.Text + 1
    End Sub

اريد بعدتغير الاسم label يدغير رقمه مثلا لو 1 لى 2 كل ما يغير لاسم منغير وضع الكود فى زر

[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

بالتوفيق