VB.NET：标签没有刷新

Question

我认为这些代码行应该正常工作，但标签永远不会更新它的价值......任何想法我错过了什么？ 定时器已从属性...

启用

 Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    Dim out As Integer = 13

    Dim s As String
    s = Format(out, "0#")

    Label1.Text = s
    Label1.Refresh()
    out -= 1
End Sub