VB.net与JAVA的TCP通信问题

java做Server vb.NET 做client 
可是用vb的客户端向java的服务端发信息时，服务端怎么也显示不出来，服务端没有任何反应。 
各位大侠帮忙看看吧。刚学java 。 
代码如下 
java的服务端： 
import java.io.*; 
import java.net.*; 
public class Server{ 
public static void main(String args[]) { 
try{ 
ServerSocket server=null; 
try{ 
server=new ServerSocket(4700); 
}catch(Exception e) { 
System.out.println("can not listen to:"+e); 
} 
Socket socket=null; 
try{ 
socket=server.accept(); 
}catch(Exception e) { 
System.out.println("Error."+e); 
} 
BufferedReader is=new BufferedReader(new InputStreamReader(socket.getInputStream())); 
System.out.println("Client: "+is.readLine()); 
while(true){ 
System.out.println("Client: "+is.readLine()); 
} 
}catch(Exception e){ 
System.out.println("Error:"+e); 
} 
} 
} 
VB的客户端： 
Imports System.Net.Sockets 
Imports System.Net Public Class Form1 
    Dim data() As Byte 
    Dim client As TcpClient     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         client = New TcpClient 
        client.Connect("127.0.0.1", 4700) 
        Dim ns As NetworkStream = client.GetStream 
        Dim data As Byte() = System.Text.UnicodeEncoding.Default.GetBytes("你好") 
        ns.Write(data, 0, data.Length) 
        ns.Flush()     End Sub 
End Class