Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
            Dim k1 As Long = Now.ticks
      'некоторый набор действий
            Dim k2 As Long = Now.ticks
            MsgBox((k2 - k1)/10000 & " миллисекунд")
      End Sub