В коде отчета добавляем:
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
