You can't use Form1.Icon = LoadPicture("C:\MyPic.jpg") it has to be an Icon(ico) or Cursor(cur). Plus if the file got deleted or renamed then this would cause an error.
The easiest thing to do is load a few icons in an imgIcon(6) array on the form and make them invisible. Then on Form Load sort the form icon randomly.
How ever many icons you load.
Form1.Icon = imgIcon(Int((6 * Rnd) + 1)).Picture