B4J Question SOLVED - UDP question

Sub CreateBoundUdpSocket(ip As String, port As Int, socket1 As UDPSocket, EventName As String, ReceiveBufferSize As Int)
   Dim DatagramSocket As JavaObject
   Dim InetAddress As JavaObject
   InetAddress = InetAddress.InitializeStatic("java.net.InetAddress").RunMethod("getByName", Array(ip))
   DatagramSocket.InitializeNewInstance("java.net.DatagramSocket", Array(port, InetAddress))
   Dim sockjo As JavaObject = socket1
   Dim ClassName As String = Me
   ClassName = ClassName.SubString(ClassName.IndexOf(" ") + 1) 'will not work in class module.
   Dim jme As JavaObject
   jme.InitializeStatic(ClassName)
   sockjo.RunMethod("init", Array(jme.GetField("ba"), EventName, ReceiveBufferSize, DatagramSocket))
End Sub