vb.net - 为什么 Msgbox 行为怪异？

Question

这是按钮代码：

Dim ha as integer =0
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
    ha = ha + 1
    If ha < 3 Then
        *Msgbox("Hint(s) taken = " & ha)
        hint = hint - 5
    Else
        MsgBox("You cant Take More HINTS :P")
    End If

End Sub

现在的问题是 * msgbox 不断出现无限次 ha 显示的值始终为 1 .....奇怪如果我删除该行然后代码工作正常！为什么会这样？我应该怎么做才能摆脱这个！