Imports System.IO
 
Public Class Form1
 
    Dim stoppuhr As New Stopwatch
    Dim dauer As Integer
 
    Function Zufallszahl() As Integer
        Dim r As New Random(Environment.TickCount)
        Return r.Next(0, 10)
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Button1.Enabled = False
 
 
 
        stoppuhr.Start()
        TextBox1.Text = 1
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Kontrolle ob 
        If File.Exists("M:\Auswertung.txt") = False Then File.Create( _
          "M:\Auswertung.txt")
 
        TextBox5.Text = My.Computer.Name
        TextBox4.Text = TimeOfDay
    End Sub
 
    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.InitialDirectory = "M:\"
        OpenFileDialog1.Filter = "|"
        OpenFileDialog1.ShowDialog()
 
        If DialogResult.OK Then TextBox6.Text = File.ReadAllText( _
          "M:\Auswertung.txt")
 
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        'Beendet das Programm
        End
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Dim a, b, c, n As Integer
 
        a = Zufallszahl()
 
        TextBox1.Text = a
 
        For i As Integer = 1 To 5
 
            If Button2.... = True Then n = n + 1
 
        Next
        stoppuhr.Stop()
 
        dauer = stoppuhr.Elapsed.Seconds
        stoppuhr.Reset()
        TextBox7.Text = dauer
        Button1.Enabled = True
    End Sub
End Class