Dim NewS As New FormDim NewT as new TimerNewT.Interval = 5000NewT.enabled = TrueNewS.Controls.Add(NewT)NewS.show
'Custom event
Private Sub Timer_Expired(ByVal sender As System.Object, ByVal e As System.EventArgs)Dim TMR as Timer = CType(sender, Timer)End Sub
P