عندي كود لالتقاط صورة للشاشة وتسجيلها على شكل صورة

بسم الله الرحمن الرحيم و الصلاة و السلام على أشرف الأنبياء و المرسلين و بعد

السلام عليكم و رحمة الله و بركاته

إخواني الكرام عندي كود للتقاط صورة للشاشة في الحافضة وتسجيلها على شكل صورة

قمت بإضافة تايمر لكي يلتقط في كل تانيتين صورة للشاشة و تسجيلها بجانب البرنامج وها هو الكود

Private Declare Sub keybd_event Lib "user32" (ByVal bvk As Byte, ByVal bscan As Byte, ByVal awflags As Long, ByVal dwextrainfo As Long)
Private Const VK_SNAPSHOT = &H2C
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
keybd_event VK_SNAPSHOT, 0, 0, 0
DoEvents
SavePicture Clipboard.GetData(), App.Path & "\a.jpg"
End Sub

لكن المشكلة هو أنه عندما يأخد الصورة التانية يمسح الصورة الأولى و يسجل مكانها الصورة التانية و هكدا

سؤالي هو كيف أجعل البرنامج عندما يأخد الصورة التانية يقوم بتغيير إسمها متلا a1

بمعنى أن الصورة الأولى هي a و الصورة التانية هي a1 و الصورة التالتة هي a2 و الصورة الرابعة هي a3 و ....... وهكدا

البرنامج في المرفقات لكن المرجوا أن تشرحوا لي الكود الدي قمتم بتصحيحه و لكم جزيل الشكر

وجزاكم الله خيرا.

و السلام عليكم

لا إله إلا الله محمد رسول

http://www.abdallahe.c.la
http://www.abdallahe.tk

print_screan.zip