Hi, how can I fix this code?
Public Class BWorker
Public Class BWorker
Dim bw As New BackgroundWorker
Delegate Sub BW_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Delegate Sub BW_Progress(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
Public Sub Init(ByVal func As BW_DoWork, ByVal progress As BW_Progress)
Delegate Sub BW_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Delegate Sub BW_Progress(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs)
Public Sub Init(ByVal func As BW_DoWork, ByVal progress As BW_Progress)
AddHandler bw.DoWork, AddressOf func ' <--- func is wrong
EndSub
EndClass