Вот код, который я использую для извлечения нужного размера иконки:
Dim i As Icon = My.Resources.Spectrum
Using i2 As New Icon(i, New Size(256, 256))
Me.PictureBox1.Image = i2.ToBitmap
End Using
Это работает с 16x16 до 128x128, но для 256x256 это извлекает значок 128x128. Я пробовал 0x0, потому что, кажется, я помню, что именно так большой размер хранится в метаданных, но это тоже не сработало.