in rete to trovato un codice da inserire in un modulo per personalizzare il Gridview ma scritto in c#
un po dai coventitori automatici un po a mano sto cercando di tradurlo in VB.

questo è il codice una parte del codice origine
[ToolboxData("<{0}:HWGridView runat=server></{0}:HWGridView>")]
public class HWGridView : GridView
{

TextBox m_txtPageNo = null;
Hashtable m_txtFilter = new Hashtable();
Hashtable m_ddlFilter = new Hashtable();

private static readonly object EventFilterCommand = new object();
// Events
[Category("Extend GridView Events"), Description("ExtededGridView_OnFilterCommand")]
public event EventHandler FilterCommand
{
add
{
base.Events.AddHandler(EventFilterCommand, value);
}
remove
{
base.Events.RemoveHandler(EventFilterCommand, value);
}
}

public HWGridView()
{
PagerSettings.Position = PagerPosition.TopAndBottom;
}

questo è il risultato della conversione

<ToolboxData("<{0}:HWGridView runat=server></{0}:HWGridView>")> Public Class HWGridView
Inherits GridView

Private m_txtPageNo As TextBox = Nothing
Private m_txtFilter As New Hashtable()
Private m_ddlFilter As New Hashtable()

Private Shared ReadOnly EventFilterCommand As New Object()

<Category("Extend GridView Events"), Description("ExtededGridView_OnFilterCommand")> _
Public Custom Event FilterCommand As EventHandler
AddHandler(ByVal value As EventHandler)
MyBase.Events.[AddHandler](EventFilterCommand, value)
End AddHandler
RemoveHandler(ByVal value As EventHandler)
MyBase.Events.[RemoveHandler](EventFilterCommand, value)
End RemoveHandler
End Event

Public Sub New()
PagerSettings.Position = PagerPosition.TopAndBottom
End Sub
il problema è
su questa parte di codice dove mi viene segnalato
Definizione di 'RaiseEvent' mancante per l'evento 'FilterCommand'.

<Category("Extend GridView Events"), Description("ExtededGridView_OnFilterCommand")> _
Public Custom Event FilterCommand As EventHandler
qual'e il codice corretto?

grazie