Public Declare Function ExtractIconEx Lib "shell32.dll" Alias _
      "ExtractIconExA" ( _ 
    						ByVal lpszFile As String, _
							ByVal nIconIndex As Integer, _
							ByVal phIconLarge() As Integer, _
							ByVal phIconSmall() As Integer, _
							ByVal nIcons As Integer) As Integer
 
	Sub Button3Click(ByVal sender As Object, ByVal e As EventArgs)
		Const MAXSIZE As Integer = 4
		Dim SmallIcons(MAXSIZE) As Integer 
		Dim FileName As String = Nothing
		Dim ProcIcon As Icon = Nothing
		Dim IconHandle as IntPtr = IntPtr.Zero
		Dim g As Graphics = Me.CreateGraphics()
		Dim y As Integer = 10
		For Each CurrentProcess As Process In Process.GetProcesses()
			Try
				If ((Not CurrentProcess.Id = 0) AndAlso _ 
					(Not CurrentProcess.ProcessName.ToUpper().Equals("SYSTEM"))) Then
					FileName = CurrentProcess.MainModule.FileName
					ExtractIconEx(FileName, 0, Nothing, SmallIcons, MAXSIZE)
					IconHandle = New IntPtr(SmallIcons(0))
					If (Not (IconHandle = IntPtr.Zero)) Then 
						ProcIcon = System.Drawing.Icon.FromHandle( IconHandle )
						g.DrawIcon (ProcIcon, 10, y)
						g.DrawString(" -> " + CurrentProcess.ProcessName, _ 
						me.Font, Brushes.Black, 30, y)
						y += 25
					End If
				End If
			Catch ex as Exception 
				Debug.WriteLine (CurrentProcess.ProcessName +  " : " + ex.ToString())			
			End Try
		Next
	End Sub