Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim pb As New PictureBox
        pb.BackColor = Color.Black
        Me.Controls.Add(pb)
        AddHandler pb.Click, AddressOf PictureBox_Click
    End Sub
 
    Private Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim pb As PictureBox = CType(sender, PictureBox)
        Dim file As String = ""
        Dim number As Integer = 0
        GetIcon(file, number, pb)
    End Sub
 
    Private Sub GetIcon(ByVal sFile As String, ByVal pbNummer As Integer, ByVal _
      PictureBox As System.Windows.Forms.PictureBox)
 
    End Sub