Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dt As DateTime = Now
        TextBox2.Text = dt.ToString("dd. MMM. yyyy")
        TextBox1.Text = dt.ToString("HH:mm:ss")
    End Sub
End Class