[alims]

دى محاولتى و لكن فشلت

كود :

Public Class Alyspicy
   Public Sub doit(ByVal NameForm As System.Windows.Forms.Form)
       For Each h As System.Windows.Forms.Button In NameForm.Controls
           AddHandler h.Click, AddressOf hclick
           On Error Resume Next
       Next
   End Sub
   Private Sub hclick(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox(sender.text)
   End Sub
End Class

و هنا كانت المشكلة

كود :

Imports Alyspicy

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim s As Alyspicy.Alyspicy
       s.doit(Me)
   End Sub
End Class

Warning 1 Variable 's' is used before it has been assigned a value. A null reference exception could result at runtime

ايه الحل ياريت لو حد يعرف