Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub btnStart_Click(sender As System.Object, e As System.EventArgs) Handles btnStart.Click
- txtPhrase.Visible = False
- Phrase = UCase(Trim(txtPhrase.Text))
- Puzzle = ""
- For x = 1 To Len(Phrase)
- If Mid(Phrase, x, 1) >= "A" And Mid(Phrase, x, 1) <= "Z" Then
- Puzzle = Puzzle + "*"
- ElseIf Mid(Phrase, x, 1) = " " Then
- Puzzle = Puzzle + " "
- Else
- Puzzle = Puzzle + Mid(Phrase, x, 1)
- End If
- Next
- lblPuzzle.Text = Puzzle
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement