Dim lRetVal As Long
Dim lHandle As Long
Dim lRet As Long
 
'lRetVal = Shell("c:\winnt\system32\ping.exe", vbNormalFocus)
lRetVal = ShellExecute(&HC705, "open", "c:\winnt\system32\ping.exe", _
  "google.de", vbNullString, 5)
vbNullString, 0)
If lRetVal <> 0 Then
    lHandle = OpenProcess(SYNCHRONIZE, 0, lRetVal)
    If lHandle <> 0 Then
        lRet = WaitForSingleObject(lHandle, INFINITE)
        CloseHandle (lHandle)
    End If
End If

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!