Metti una icona nel tuo progetto, verifica che il nome sia scritto in minuscolo, imposta la proprietà come risorsa incorporata
codice:
Private Function IcoFromResource(nomeIcona As String) As Icon
Dim icAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
nomeIcona = String.Format("{0}.{1}", icAssembly.GetName().ToString().Split(New Char() {","C})(0), nomeIcona)
Dim icStream As System.IO.Stream = icAssembly.GetManifestResourceStream(nomeIcona)
Dim icBitmap As Bitmap = DirectCast(Image.FromStream(icStream), Bitmap)
Return Icon.FromHandle(icBitmap.GetHicon())
End Function