Salut,
Sinon tu peux créer une icône à partir de n'importe quelle image mais je n'ai pas bien compris la question alors...
'chargement de l'image
Dim i As Image = Image.FromFile("image.jpg")
'préparation du bitmap icone 32x32
Dim b As New Bitmap(32, 32)
'outil de dessin
Dim g As Graphics = Graphics.FromImage(b)
'mise à l'échelle de l'image
g.DrawImage(i, New Rectangle(0, 0, 32, 32), New Rectangle(0, 0, i.Width, i.Height), GraphicsUnit.Pixel)
'définition de la couleur de transparence de l'icone
b.MakeTransparent(Color.White)
'mise en icône
Me.Icon = Icon.FromHandle(b.GetHicon())
Bonne soirée.