22-02-13, 03:22 AM
كود :
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