Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Format(Now, "HH:mm:ss:fff") ' start button End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox2.Text = Format(Now, "HH:mm:ss:fff") ' end button End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'subtract button TextBox3.Text = TextBox2.Text - TextBox1.Text End Sub End Class
start
end
Date.Now
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)