socket array

i would like to accept more then one connection in server socket
ive tried

Dim ServerSocket1 As ServerSocket
Dim Socket1(255) As Socket
Dim InputStream1(255) As InputStream
Dim OutputStream1(255) As OutputStream

and then
For I=0 To 254
If SOCKET1(I).Connected =True Then
If InputStream1(I).BytesAvailable > 0 Then
.do something
end if
end if
next

but when i compile always give me java error

who can i acces an array of sockets


thsk