Private Counter as Single
Private PingFertig as Boolean
 
Private Form_Load()
Timer.Interval = 1
End Sub
 
Private Command1_Click()
'Ping
Timer.Enabled = True
End Sub
 
Private Sub Timer_Timer()
If PingFertig = False Then
   Counter = Counter + 1
Else
   PingFertig = True
   MsgBox "Reaktionszeit: " & Counter & " Millisekunden."
End If
End Sub