Need help with Hangman program,certain parts of code logically correct but not functioning

My code stopped working and I have no idea why. I need it really soon and I can't figure it out. It was a hangman project and nothing logical seems to be happening. Please help, thank you. Most of it was working before and now it doesn't want to anymore.


PROGRAM DOWNLOAD:
http://www.sendspace.com/file/29ewac



In a separate module I have the code to start the program:

Please Login or Register  to view this content.

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""

PROBLEMS:

The Load Question button is supposed to load the dashes, but doesn't.

AfterLoadQuestionPressed.png


Also, I can't figure out why...
If hang <> 0 Then
Hangman.Image1.Picture = LoadPicture(pic(hang))
End If

....isn't letting me load the correct hangman picture...

In a separate module I have the code to start the program: