VB.NET, C#, PowerShell Tipsサイト

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '下限=0 上限=60に設定
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 60

        '進捗量を2に設定する
        ProgressBar1.Step = 2
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For I As Integer = 0 To 59
            '進捗させる
            ProgressBar1.PerformStep()

            '待機中のイベント処理を行う
            Application.DoEvents()

            '１秒待機（ここで何か処理を行います）
            System.Threading.Thread.Sleep(1000)
        Next
End Sub