Private Sub StartAgent(localAddress As String)
'Populate a variable on the agent
Agent1.Variables.Add Agent1.Mib.Nodes("sysDescr").CreateVariable("System Description")
'Establish local binding address
Dim localEP As New IPEndPoint
localEP.NameOrAddress = localAddress
localEP.Port = 161
'Start agent on the specified local binding address
Agent1.Start localEP, True
End Sub
Private Sub Agent1_Request(ByVal requestMessage As DartSnmpCtl.ISnmpMessage)
Agent1.SendResponse Agent1.CreateResponse(requestMessage), requestMessage.Origin
End Sub