Public Class Form1
Dim GuessedLetters As List(Of Char) = New List(Of Char)
Dim HiddenWord As String
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
HiddenWord = "ABCabc"
GuessedLetters.Add("A")
GuessedLetters.Add("a")
GuessedLetters.Add("B")
GuessedLetters.Add("b")
Label1.Text = GuessedLetters.ToArray
WriteLetters()
End Sub
Private Sub WriteLetters()
Label2.Text = HiddenWord
If Not GuessedLetters.Contains("A") Then Label2.Text.Replace("A", "_")
If Not GuessedLetters.Contains("B") Then Label2.Text.Replace("B", "_")
If Not GuessedLetters.Contains("C") Then Label2.Text.Replace("C", "_")
If Not GuessedLetters.Contains("D") Then Label2.Text.Replace("D", "_")
If Not GuessedLetters.Contains("E") Then Label2.Text.Replace("E", "_")
If Not GuessedLetters.Contains("F") Then Label2.Text.Replace("F", "_")
If Not GuessedLetters.Contains("G") Then Label2.Text.Replace("G", "_")
If Not GuessedLetters.Contains("H") Then Label2.Text.Replace("H", "_")
If Not GuessedLetters.Contains("I") Then Label2.Text.Replace("I", "_")
If Not GuessedLetters.Contains("J") Then Label2.Text.Replace("J", "_")
If Not GuessedLetters.Contains("K") Then Label2.Text.Replace("K", "_")
If Not GuessedLetters.Contains("L") Then Label2.Text.Replace("L", "_")
If Not GuessedLetters.Contains("M") Then Label2.Text.Replace("M", "_")
If Not GuessedLetters.Contains("N") Then Label2.Text.Replace("N", "_")
If Not GuessedLetters.Contains("O") Then Label2.Text.Replace("O", "_")
If Not GuessedLetters.Contains("P") Then Label2.Text.Replace("P", "_")
If Not GuessedLetters.Contains("Q") Then Label2.Text.Replace("Q", "_")
If Not GuessedLetters.Contains("R") Then Label2.Text.Replace("R", "_")
If Not GuessedLetters.Contains("S") Then Label2.Text.Replace("S", "_")
If Not GuessedLetters.Contains("T") Then Label2.Text.Replace("T", "_")
If Not GuessedLetters.Contains("U") Then Label2.Text.Replace("U", "_")
If Not GuessedLetters.Contains("V") Then Label2.Text.Replace("V", "_")
If Not GuessedLetters.Contains("W") Then Label2.Text.Replace("W", "_")
If Not GuessedLetters.Contains("X") Then Label2.Text.Replace("X", "_")
If Not GuessedLetters.Contains("Y") Then Label2.Text.Replace("Y", "_")
If Not GuessedLetters.Contains("Z") Then Label2.Text.Replace("Z", "_")
If Not GuessedLetters.Contains("a") Then Label2.Text.Replace("a", "_")
If Not GuessedLetters.Contains("b") Then Label2.Text.Replace("b", "_")
If Not GuessedLetters.Contains("c") Then Label2.Text.Replace("c", "_")
If Not GuessedLetters.Contains("d") Then Label2.Text.Replace("d", "_")
If Not GuessedLetters.Contains("e") Then Label2.Text.Replace("e", "_")
If Not GuessedLetters.Contains("f") Then Label2.Text.Replace("f", "_")
If Not GuessedLetters.Contains("g") Then Label2.Text.Replace("g", "_")
If Not GuessedLetters.Contains("h") Then Label2.Text.Replace("h", "_")
'and do on... (In my actual code I have the full alphabet twice.)
End Sub
End Class