Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e _
  As System.EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Dim prog As Integer
            Label1.Text = "Einen Augenblick bitte!"
            Me.Cursor = Cursors.WaitCursor
            For prog = 1 To 100
                Threading.Thread.Sleep(100)
                ProgressBar1.Value = prog
            Next
            ProgressBar1.Value = 0
            Me.Cursor = Cursors.Default
        End If
    End Sub