如何在运行时在vb.net中将事件分配给计时器？

Given this:

Public Sub timReminder_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If DateTime.Now() > g_RemindTime Then
        Reminders.ShowDialog()
        timReminder.Enabled = False
    End If
End Sub
Public Sub timReminder_Tick(ByVal