Prova così:
codice:
        Dim a As System.Drawing.Image
        a = Image.FromFile(Application.StartupPath + "\icona.ico")
        PictureBox1.Image = a