vb.net - Visual Basic の消えるテキスト ボックス?

Question

私はこれに対する答えを求めてウェブ全体を調べましたが、自分でバグを再現することができず、どういうわけかテキストボックスが透明でクリックできないように見えます。ただし、「Text =」プロパティを設定してメッセージを入れると、テキストボックスは正常に機能するようです。

プロパティとコードを何度も見ましたが、何も問題がないようです。テキストボックスを透明にする呼び出しはありません。また、ユーザー入力の受け入れを妨げるものは何もありません。

...「壊れた」コードは次のとおりです。

Public Class GuessingGame

    Const MIN As Integer = 1
    Const MAX As Integer = 50

    Private Sub btnCheckGuess_Click(sender As System.Object, e As System.EventArgs) Handles btnCheckGuess.Click
        Randomize()
        Static secretNumber As Integer = Int((MAX - MIN + 1) * Rnd() + MIN)
        Static Count = 0
        Dim guess As Integer

        Count = Count + 1
        guess = Val(Me.txtPlayerGuess.Text)
        If guess < MIN Or guess > MAX Then              'invalid guess
            MessageBox.Show("Guess out of range")
        ElseIf guess = secretNumber Then
            Me.lblMessage.Text = "You guessed it!"      'correct
            MessageBox.Show(Count)
        Else
            Call GiveHint(secretNumber, guess)
        End If
    End Sub

    Private Sub txtPlayerGuess_TextChanged(sender As System.Object, e As System.EventArgs)
        'Clear the current answer when the user begins to type a new value
        Me.lblMessage.Text = Nothing
    End Sub

    Private Sub GiveHint(firstNum As Integer, ByVal secondNum As Integer)
        If firstNum > secondNum Then
            MessageBox.Show("Too low.")
        Else
            MessageBox.Show("Too high.")
            End If
        End Sub
    End Class

これを引き起こしている原因とそれを修正する方法について、誰にもアイデアがありますか?