Imports System.ComponentModel Public Class escalationForm Private Sub escalationForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.Audio.Play(My.Resources.Adan, AudioPlayMode.Background) 'Automatically plays audio file End Sub Private timer1 As New Timer Public Sub New() ' This call is required by the designer. InitializeComponent() ' Add any initialization after the InitializeComponent() call. timer1.Interval = 34000 timer1.Enabled = True AddHandler timer1.Tick, AddressOf Timer1_Tick End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim f2 As New introTask2 f2.Show() timer1.Enabled = False Close() End Sub End Class
TimerCallBack
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)