ListBox1.Items.Add(TextBoxTicketID.Text)
    TextBoxTicketID.Text = ""
    Me.TextBoxTicketID.Select()

    Dim x1 As Integer = 789
    Dim y1 As Integer = 120

    For i As Integer = 0 To ListBox1.Items.Count - 1
        Dim key As String = ListBox1.Items(i).ToString()

        'adds picturebox for as many listbox items added
        Dim MyPictureBox As New PictureBox()
        MyPictureBox.Name = "pic" + key
        MyPictureBox.Location = New Point(x1, y1)
        MyPictureBox.Size = New Size(12, 12)
        MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        Me.Controls.Add(MyPictureBox)
        MyPictureBox.Image = My.Resources.Warning1
        x1 += 0
        y1 += 13
    Next i