Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For n = 1 To 1000 Label1.Text = n.ToString() Next End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For n = 1 To 1000 Label1.Text = n.ToString() Label1.Refresh() '❄強制再描画 Next End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click For n = 1 To 1000 Label1.Text = n.ToString() If n Mod 25 = 0 Then Label1.Refresh() End If Next End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim sw = Stopwatch.StartNew() For n = 1 To 1000 Label1.Refresh() Next sw.Stop() MsgBox(sw.ElapsedMilliseconds) End Sub