В коде отчета добавляем:
Public Class ReportScript Private MyTimer as New System.Windows.Forms.Timer Private Sub Form1_Load(ByVal sender As object, ByVal e As EventArgs) MyTimer.Interval = 1000 MyTimer.Enabled = True AddHandler MyTimer.Tick, Addressof TimerTick End Sub Private Sub TimerTick(ByVal sender As object, ByVal e As EventArgs) lbl_Info.Text = CStr(CInt(lbl_Info.Text) + 1) 'Ждем 60 секунд и закрываем If CInt(lbl_Info.Text) > 60 Then ' отключаем таймер MyTimer.Enabled = False ' здесь указываем действия RadioButton2_Click(Nothing, Nothing) ' Закрываем форму Form1.AcceptButton = btnOk Form1.Form.AcceptButton.DialogResult= DialogResult.OK Form1.Form.AcceptButton.PerformClick() End If End Sub
В качестве индикатора добавляем Label с именем lbl_Info и значением Text = 0