Save Image automaticaly in a perticular file with name.

I want to save Save Image automaticaly in a perticular file with name and when restart the program it should not replace the previous saved files. I have a code for saving the image which assign name automatically but when i restart the program it replaces the previous saved files and start it count from beginning.


The Example of my Code is below


Private Sub Command2_Click()
counts = counts + 1

SavePicture Picture1.Picture, App.Path & "\Picture\" & counts & ")Student.jpg"

MsgBox "Check you picture inside the folder Picture", vbInformation
End Sub