[elgokr]

اهلاً بك اخى bidaya

لاتمام هذا كل ما عليك فعله التالى

قم باستخدام هذا الـ Sub

كود :

   Sub RunText(ByRef Bt As Button, ByVal Text As String)
       Bt.Enabled = False
       Bt.Text = Text
   End Sub

وتعال فى المكان المراد تنفيذ الـ Sub وطبق الكود التالى

كود :

RunText(Button1, "Thank you")

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

وانك قادر على التعامل معه

تحياتى لك

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