Thanks to the persons who tried to help me. I found a solution.
Friend Class Solution
Public Class SomeThing
'A bunch of stuff
Public Name As String
Public Sub New(ByVal Name As String)
Me.Name = Name
End Sub
End Class
Public Event someEvent(ByVal Name As String) 'Importend
Private NotInheritable Class EventHelper
Private someThing As SomeThing
Private parent As Solution
Public Sub New(ByVal parent As Solution, ByVal someThing As SomeThing)
Me.parent = parent
Me.someThing = someThing
End Sub
Public Sub ASub(ByVal Name As String)
Me.parent.ASub(Name, Me.someThing)
End Sub
End Class
Private Sub test()
Dim name As String = "TikElentrik"
Dim someThing As New SomeThing(name)
' Where the problem was
'addhandler SomeEvent , sub(arg) ASub(name,someThing) '.NET 4.0
'How to get it in NET 2.0
AddHandler someEvent, AddressOf New EventHelper(Me, someThing).ASub
End Sub
Public Sub ASub(ByVal Name As String, ByVal Something As something)
'Doing things
End Sub
End Class
If there is a better one, please let me know
Mvg,
TikElentrik.