مساعدة عاجلة لو تكرمتم

لو تكرمتم مساعدة عاجلة

إخواني الكرام

سلام الله عليكم

لدي مشروع عاجل وأتمنى أن أجد من يرد علي طلبي :

المشورع يربط بين صور وليست بوكس ومربع نص

وأريد أن أضع زز بحث بسيط

كان لدي كود خاص به وها هو :

Private Sub ShowFiles(fName As String)

'fName

Open App.Path & "\" & fName & ".txt" For Input As #2

Text1.Text = Input(LOF(2), #2)

Close #2

End Sub

======================

Private Sub Command4_Click()

'ÈÍË

Dim str As String

Dim x As String

x = InputBox("ادخل البحث ", "بحث ", "")

'áÊÃßÏ ÅÐÇ Êã ÇáÙÛØ Úáì ÒÑ cancel

If StrPtr(x) = 0 Then

Exit Sub

End If

'äÞæã ÈÝÊÍ ÇáãáÝ ÇáÑÆíÓí ÇáÐí íÍÊæí Úáì ÃÓãÇÁ ÇáãáÝÇÊ

Open App.Path & "\main.txt" For Input As #1

'ääÔíÁ ÍáÞÉ ÊßÑÇÑ áÞÑÇÁ ÌãíÚ ÇáÃÓØÑ

Do While Not EOF(1)

'äÞÑà ãÍÊæíÇÊ ÇáÓØÑ æäÖÚå Ýí ãÊÛíÑ

Line Input #1, str

'äÞÇÑä åá ÇáÞíãÉ ÇáãÏÎá Ýí äÇÝÐÉ ÇáÃÏÎÇá ÊÓÇæí ãÍÊæì ÇáãÊÛíÑ

If x = str Then

'ÅÐÇ ßÇäÊ ßÐÇáß äÓÊÏÚí ÇáÃÌÑÇÁ ÇáÎÇÕ ÈÚÑÖ ÇáäÕæÕ æÇáÕæÑ æäãÑÑ áå ÇáÞíãÉ ÇáãÏÎáÉ

Call ShowFiles(x)

'äÎÑÌ ãä ÇáÍáÞÉ

Exit Do

End If

Loop

Close #1

'äÞÇÑä Èíä ÇáÞíãÊíä ãÑå ÃÎÑì ÃÐÇ ßÇäÊ Ûí ãÊØÇÈÞÊíä äÙåÑ ÑÓÇáÉ

If x <> str Then

MsgBox "áÇ ÊæÌÏ äÊÇÆÌ ÎÇÕÉ ÈÇÓã ÇáÌãÇÚÉ ÇáÊí ÇÏÎáÊåÇ ..äÚÊÐÑ Ýåí ÛíÑ ãÓÌáÉ áÏíäÇ", , ""

End If

End Sub

================

وسؤالي هو ما التعديل الذي أضيفه للكود السابق ليعرض الصورة مع مربع النص

لأن هذا الكود يعرض كبحث المعلومة في النص فقط ولا يعرض الصورة

أتمنى أن يرد علي أحد للضرورة

وجزاكم الله خيرا

محبكم

أبو مهاب