Private Sub PictureBoxRoutine(ByVal path As String)
        Try
            System.Windows.Forms.Cursor.Hide()
            newPictureBox = New PictureBox
            With newPictureBox
                .Image = Image.FromFile(path)
                .Visible = True
                .Top = 20
                .Width = 100
                .Height = 50
                .Left = 10
                .SizeMode = PictureBoxSizeMode.StretchImage
            End With
            'add control to form
            Controls.Add(newPictureBox)
            Timer1.Enabled = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub