Public Delegate Sub AgentMessageReceived( _
   ByVal agent As Agent, _
   ByVal request As RequestMessage, _
   ByVal state As Object _
) 

Dim instance As New AgentMessageReceived(AddressOf HandlerMethod)

public delegate void AgentMessageReceived( 
   Agent agent,
   RequestMessage request,
   object state
)

public: __gc __delegate void AgentMessageReceived( 
   Agent* agent,
   RequestMessage* request,
   Object* state
)

public delegate void AgentMessageReceived( 
   Agent^ agent,
   RequestMessage^ request,
   Object^ state
)

private void button1_Click(object sender, EventArgs e)
{
    //Add variable to agent
    agent1.Mib.CreateVariable(NodeName.sysContact, "Kara Thrace");
    agent1.Variables.Values.Add(agent1.Mib.CreateVariable(NodeName.sysContact, "Kara Thrace"));

    //Start listening for requests
    agent1.Start(agent1_MessageReceived, null);
}

private void agent1_MessageReceived(Agent agent, RequestMessage request, object state)
{
    //Create and send a response whenever a request is received
    agent1.Send(agent1.CreateDefaultResponse(request), request.Origin);
}

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
    'Add variable to agent
    agent1.Variables.Values.Add(agent1.Mib.CreateVariable(NodeName.sysContact, "Kara Thrace"))

    'Start listening for requests
    agent1.Start(agent1_MessageReceived, Nothing)
End Sub

Private Sub agent1_MessageReceived(ByVal agent As Agent, ByVal request As RequestMessage, ByVal state As Object)
    'Create and send a response whenever a request is received
    agent1.Send(agent1.CreateDefaultResponse(request), request.Origin)
End Sub