Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 8th, 2012  |  syntax: None  |  size: 0.37 KB  |  hits: 15  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. word = Hangman.word.Caption
  2.  
  3. hang = 0
  4. For i = 1 To ansnum
  5. If Guess = Cells(i, 2) Then
  6. Mid(word, i, 1) = Guess
  7. ElseIf Guess <> Cells(i, 2) Then
  8. hang = hang + 1
  9. End If
  10. Next i
  11. Guessbox = Hangman.Guessbox.Caption & " " & Guess
  12.  
  13. Hangman.word.Caption = word
  14.  
  15. If hang <> 0 Then
  16.     kalc = kalc + 1
  17.     Hangman.Image1.Picture = LoadPicture(pic(kalc))
  18. End If
  19. End Sub
create a new version of this paste RAW Paste Data