[elgokr]

مرحباً اخى sniperjawadino

قد لا اكون على استوعاب كامل لما تريد فعله

ولكن بنظرياً لما تمكنت من فهمه فى موضوعك فبكل ما يمكنك ان افيدك

ان تستخدم هذا الـ Function 

كود :

   Function EControls(ByRef c As Panel) As Form
       For Each e As Control In c.Controls
           If e.Focused Then
               e.Text = Nothing
           End If
       Next
       Return Nothing
   End Function

وتعال فى مكان الحدث المراد تنفيذ الكود به واستخدم الكود بهذا الشكل

كود :

       EControls(Panel1)

بكده كل ما هو فى اطار Panel1 عندما يكون التركيز على اداء محدد سيتم تفريغ النص به

اتمنى ان يكون هذا الكود المطلوب 

تحياتى لك

وتمنياتى لك التوفيق