Dim FileString() As String = Split(IconPath, ",")
Dim hSmallIcons(0), hLargeIcons(0) As Integer
Dim i As Integer = ExtractIconEx(FileString(0), 1, hLargeIcons(0), hSmallIcons( _
  0), 0)

N I C H T S - I S T - S O - W I E - E S - S C H E I N T