[alshandodi]

شكرا جزيلا اخي 3booody 

لقد قمت بعمل بالكود الخاص بك واكرر شكري نجح الكود

ولكن هنالك مشكله الا وهي انه حجم الصورة صغير
هذا هو الكود 

كود :

 Dim bit As New Bitmap(lABEL1.Text) 'الصورة الاصلية
       Dim bit2 As New Bitmap(120, 120) 'الصورة بأختيار الحجم الجديد
       Dim gr As Graphics = Graphics.FromImage(bit2)
       gr.DrawImage(bit, 0, 0, 120, 120)
       bit2.Save("Empimg\" & LBL_NAME.Text & ".jpg")

وأشكر اخي [b][b]علي نوري[/b][/b]

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