


Public Sub btnTest_Click()
  Dim iInteger As Integer
  
  Print iInteger
  
  If iInteger Then
     Print "JA"
  Else
     Print "NEIN"
  Endif
'--------------------------------------------------------
  If txbPingNumber.Text Then 
     Print "DIE TEXTBOX ENTHÄLT TEXT."
  Else
     Print "DIE TEXTBOX ENTHÄLT KEINEN TEXT."
  Endif
'--------------------------------------------------------
  If txbPingNumber Then 
     Print "DAS OBJEKT 'txbPingCount' EXISTIERT"
  Else
     Print "DAS OBJEKT 'txbPingCount' EXISTIERT NICHT"
  Endif
'--------------------------------------------------------
  If $hPing Then 
     Print "DER PING-PROZESS LEBT..."
  Else
     Print "VOM PING-PROZESS IST NICHTS ZU SEHEN..."
  Endif
'--------------------------------------------------------
  ' If Exist("/usr/local/PingResult/backup.bak") Then
  '    Kill "/usr/local/PingResult/backup.bak"
  ' Else
  Try File.Save("/usr/local/backup.bak", txaOutput.Text)
  If Error Then 
     Print "FEHLER: "; Error.Text; " - "; Error.Where
     Return
  Endif
'--------------------------------------------------------

End ' btnTest_Click()