Sub InitializeWithIp(Server As ServerSocket, EventName As String, Port As Int, ip As String)
Server.Initialize(0, EventName)
Dim ia As JavaObject
ia = ia.InitializeStatic("java.net.InetAddress").RunMethod("getByName", Array(ip))
Dim s As JavaObject = Server
Dim socket As JavaObject
socket.InitializeNewInstance("java.net.ServerSocket", Array(Port, 50, ia))
s.SetField("ssocket", socket)
End Sub