[alfaiz678]

وطريقة النسخ الى الحافظة

ااولا استدعاء مكتبة Clipboard

ثم تعريف متغير بالمكتبة Dim txtc As BClipboard

للنسخ كود 

كود :

    txtc .clrText
    txtc .settext("النص المراد نسخه ان كان نص او اداة ضعها هنا بدون تنصيص")

الان النص في الحافظة الصقه في اي مكن

وان اردت الصاقه بالكود 
مثال لالصاقه في صندوق رسائل

كود :

Msgbox(txtc.getText,"")