Visual Basic

Dim Save_4 As String = "insert into itemmst (itm_description) values (@itm_description)"
Dim com As SqlCommand = New SqlCommand(Save_4, con)

Dim par As SqlParameter = New SqlParameter("itm_description", SqlDbType.Text, 255, ParameterDirection.Input, False, 0, 0, "itm_description", DataRowVersion.Current, itm_description)
com.Parameters.Add(par)

con.Open()

Dim Trans As SqlTransaction
Trans = con.BeginTransaction
com.Transaction = Trans

Try
    com.ExecuteNonQuery()
    Trans.Commit()

Catch ex As Exception
    If Not Trans Is Nothing Then
        Trans.Rollback()
    End If
    MsgBox(ex.Message)
End Try

con.Close()

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.