[VB_Coder]

السلام عليكم

- إستخدم هذا الكود :

كود :

Dim I As Integer

If Dir$(App.Path & "\Report\" & Trim$(Text1.Text) & ".bmp") <> "" Then
   For I = 1 To 32700
       If Dir$(App.Path & "\Report\" & Trim$(Text1.Text) & "(" & I & ").bmp") = "" Then
          SavePicture Picture1.Image, App.Path & "\Report\" & Trim$(Text1.Text) & "(" & I & ").bmp"
          DoEvents
          Exit For
       End If
   Next
Else
   SavePicture Picture1.Image, App.Path & "\Report\" & Trim$(Text1.Text) & ".bmp"
   DoEvents
End If

MsgBox "OK"