为什么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 .....很奇怪 如果我删除该行，那么代码工作正常！ 为什么会这样？ 我该怎么做才能摆脱这个!!