Private WithEvents ICantBeBotheredToGoogleThis As New Timer
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ICantBeBotheredToGoogleThis.Interval = 232000
ICantBeBotheredToGoogleThis.Start()
End Sub
Private Sub ICantBeBotheredToGoogleThis_Tick(sender As Object, e As EventArgs) Handles ICantBeBotheredToGoogleThis.Tick
Dim IAmALazyCoder As New Form2
IAmALazyCoder.ShowDialog()
End Sub