أريد مساعدة في كود فتح من نوع آخر

Private Function EditWithPaint(ByVal PhotoPath As String) As Boolean
	On Error GoTo Err:
	Dim PaintPath As String

	PaintPath = Environ("SystemRoot") & "\system32\mspaint.exe"

	If Dir(PhotoPath, 0 Or 1 Or 2 Or 4 Or 32) = "" Then GoTo Err:
	If Dir(PaintPath, 0 Or 1 Or 2 Or 4 Or 32) = "" Then GoTo Err:

	Shell PaintPath & Space(1) & Chr(34) & PhotoPath & Chr(34)
	EditWithPaint = True
Err:
	Err.Clear
End Function

Call EditWithPaint("C:\WINDOWS\Coffee Bean.bmp")

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

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

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

مثلا في شريط المهام يوجد

الصورة1 - الرسام

الصورة2 - الرسام

الصورة3 - الرسام

وهي عناوين للأشياء المفتوحة في شريط المهام

الآن في البرنامج يوجد عندي مسار صورة معلوم

"C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\Collines.jpg"

الذي أريده هو إفلات الصورة المحددة الى مثلا الصور2 - الرسام

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