[سعود]

طريقتك نجحت معي لكن لا ادري هل السبب اني في اكس بي الان ام لا
في الكلاس كتبت

كود :

Public Class Class1
   Public Sub doit()
       For Each h As Control In Form1.Controls
           If TypeOf h Is Button Then
               AddHandler h.Click, AddressOf hclick
           End If
       Next
   End Sub
   Public Sub hclick(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox(sender.text)
   End Sub

End Class

وفي حدث في الفورم كتبت

كود :

       Dim c As New Class1
       c.doit()