Private Sub geticon(byval sender as object, ByVal sFile As String, ByVal _
      pbNummer As Integer, ByVal PictureBox As System.Windows.Forms.PictureBox)
        Dim oIcon As Icon = Icon.ExtractAssociatedIcon(sFile)
        Dim newBitmap As New Bitmap(oIcon.ToBitmap, 32, 32)
        If File.Exists("config\pb" & pbNummer & "\pbBild.bmp") Then
            File.Delete("config\pb" & pbNummer & "\pbBild.bmp")
            newBitmap.Save("config\pb" & pbNummer & "\pbBild.bmp")
        Else
            newBitmap.Save("config\pb" & pbNummer & "\pbBild.bmp")
        End If
        PictureBox.Image = newBitmap
    End Sub