Private Sub Score11_Paint(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Score11.Paint
        Dim file_ini As String
        file_ini = Application.StartupPath & ".\Einstellung.ini"
 
        If IO.File.Exists(file_ini) Then
        End If
        Dim farbe, farbe1 As Integer
        farbe = INI_ReadValueFromFile("LastscoreFenster", "Hintergrundfarbe", _
          "", file_ini)
        farbe1 = INI_ReadValueFromFile("LastscoreFenster", "ScoreZahlenfarbe", _
        "", file_ini)
        Score11.BackColor = Color.FromArgb(farbe)
        Score11.ForeColor = Color.FromArgb(farbe1)
 
        Dim buffer As Integer
 
        ReadProcessMemory(CInt(processHandle), &H624BCC, buffer, 4, 0) ' 
        ' auslesen Rundenanzeige
        Lbround1.Text = CStr(buffer)
        Dim buffer1 As Integer
        ReadProcessMemory(CInt(processHandle), &H624BDC, buffer1, 4, 0) ' 
        ' auslesen Punkte Player 1
        Score11.Text = CStr(buffer1)
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
 
        Score11.Text = DateTime.Now.ToString
        second = second + 1
        If second >= 3 Then
            Timer1.Stop() 'Stoppt Timer
            End If
    End Sub