مجموعة أسئلة مهمة

للنسخ الى الذاكرة:

Clipboard.SetText "hey"

اما عن فتح ملف صورة هل تريد وضع الصورة في picturebox او imagebox ؟

استخدم احد الاثنين

اذا كان هناك picturebox, imagebox

Picture1.Picture = LoadPicture(App.Path & "\picture.jpg")

هناك طريقة ثانية وهي ان تحصل على ال binary في الصورة وليس الصورة نفسها

Private Sub Form_Load()
Dim PicBin As String
Open App.Path & "\picture.jpg" For Input As #1
    PicBin = Input$(LOF(1), #1)
Close #1

لحفظ صورة يتم استخدام

savepicture(picture1.Picture,app.Path & "\mypic.jpg")