Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        General.InitializeGrid(MainGrid)
        Dim Timer As System.Timers.Timer
        AddHandler Timer.Elapsed, AddressOf Me.test
        'Timer.Interval = 2500
        'Timer.Start()
        'Timer.Enabled = True
    End Sub

 Public Sub test(ByVal sender As Object, ByVal e As _
   System.Timers.ElapsedEventArgs)
        '  MainForm.DisplayMessage.Text = Now.ToString
 
    End Sub

Private Sub Timer_Elapsed(ByVal sender As Object, ByVal e As _
  System.Timers.ElapsedEventArgs) Handles Timer.Elapsed