'......
Dim b As Bitmap = ...
Dim hIcon As IntPtr = b.GetHicon()
Dim i As Icon = Icon.FromHandle(hIcon)