Visual Basic

Dim dataStorage As String

Private Sub SystemRepliedEventHandler(ByVal data As String) Handles tcpSend.SystemReplied

    'MsgBox(data)
    'create the controls to display data
    'this doesn't work
    'Dim type As New TextBox
    'type.Location = New Point(100, 100)
    'type.Size = New Size(100, 100)
    'type.Text = data
    'Controls.Add(type)

    dataStorage = data
    Invoke(New MethodInvoker(AddressOf MyAddControl))

End Sub

Private Sub MyAddControl()

    Dim type As New TextBox
    type.Location = New Point(100, 100)
    type.Size = New Size(100, 100)
    type.Text = dataStorage
    Controls.Add(type)

End Sub

Private Sub SystemRepliedEventHandler(ByVal data As String) Handles tcpSend.SystemReplied

    dataStorage = data
    If (InvokeRequired) Then
        Invoke(New MethodInvoker(AddressOf MyAddControl))
    Else
        MyAddControl()
    End If

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
       For Me.I = 0 To 15            
            PictureBox1.Image = (MyImage(I)) 
       Next I    
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Private Shared nextImage As Integer = 0
   PictureBox1.Image = MyImage(nextImage)
   nextImage = (nextImage + 1) Mod 16
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   PictureBox1.Image = MyImage(Me.I)
   Me.I = (Me.I + 1) Mod 16
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   Private Shared nextImage As Integer = 0
   PictureBox1.Image = MyImage(nextImage)
   nextImage = (nextImage + 1) Mod MyImage.Length
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

      'PictureBox1.Image = (MyImage(I))
      Static nextImage As Integer = 0
      PictureBox1.Image = MyImage(nextImage)
      nextImage = (nextImage + 1) Mod MyImage.Length
  End Sub

riced wrote:

Then you don't have to do anything if more images are added or some removed.

Sub Main()
     ' Must listen on correct port- must be same as port client wants to connect on.
     Const portNumber As Integer = 8000
     Dim tcpListener As New TcpListener(portNumber)
     tcpListener.Start()
     Console.WriteLine("Waiting for connection...")
     Try
         'Accept the pending client connection and return
         'a TcpClient initialized for communication.
         Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
         Console.WriteLine("Connection accepted.")
         ' Get the stream
         Dim networkStream As NetworkStream = tcpClient.GetStream()
         ' Read the stream into a byte array
         Dim bytes(tcpClient.ReceiveBufferSize) As Byte
         networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
         ' Return the data received from the client to the console.
         Dim clientdata As String = Encoding.ASCII.GetString(bytes)
         TextBox1.Text = clientdata

         'Any communication with the remote client using the TcpClient can go here.
         'Close TcpListener and TcpClient.
         tcpClient.Close()
         tcpListener.Stop()
         Console.WriteLine("exit")
         Console.ReadLine()
     Catch e As Exception
         Console.WriteLine(e.ToString())
         Console.ReadLine()
     End Try