how can i use timer fastly plz

Dim dt As Date

   Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

       dt = DateTime.Now()
       dt = DateAdd(DateInterval.Minute, 1, DateTime.Now())

       Timer1.Enabled = True

   End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If DateTime.Now() > dt Then
            Form2.Show()
            Timer1.Enabled = False
            Exit Sub
        End If
    End Sub

Thread.Sleep(20000);