Adicione os seguintes componentes:

-1 Label
-1 Botão
-1 Timer

Clique 2 vezes no form1 e apague tudo que tiver lá escrito.

E cole o seguinte código:

Código:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label1.Text = "Agora são: " & Now

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Timer1.Start()

    End Sub
End Class 


Créditos:
-Stronda.