I don't know how to declare an anonymous delegate in VB.NET, and I'm too lazy for Google, but something like this should work (warning: not verified):
AddHandler xmpp.OnLogin, AddressOf Me.HandleSendMessage Private Sub HandleSendMessage(ByVal o As Object) xmpp.Send( new Message( new Jid(JID_RECEIVER), MessageType.chat, "Hello, how are you?" ) ) End Sub
Icarus
source share