[Simo1991]

(30-10-18, 06:27 PM)Rabeea Qbaha كتب : لا ليس عليك ذلك تحتاج المتغيرات الخاصه بك فقط

كود :

   Private Sub test(ByVal x As Integer, ByVal y As String, ByVal z As Boolean)
       TextBox1.text = x
       TextBox2.text = y
       TextBox1.Enabled = z
   End Sub

وتقوم باستدعائها كما ياتي 

كود :

test(1, "hello", True)

طبعا المتغيرات حسب حاجتك لها 
او يمكن تكون بدون شيئ

جزاك الله خيرا
بالنسبة لدالة بدون متغيرات ممكن أكتب فقط

كود :

Private Sub test()
      timer1.stop()
timer2.stop()
   End Sub

كود :

test()