例 Option Compare Database Option Explicit Private Const ICMP_SUCCESS As Long = 0 Private Const ICMP_STATUS_BUFFER_TO_SMALL = 11001 'Buffer Too Small Private Const ICMP_STATUS_DESTINATION_NET_UNREACH = 11002 'Destination Net Unreachable Private Const ICMP_STATUS_DESTINATION_HOST_UNREACH = 11003 'Destination Host Unreachable Private Const ICMP_STATUS_DESTINATION_PROTOCOL_UNREACH = 11004 'Destination