مشکل در کد InternetGetConnectedStateEx

[www.pc3enter.tk]

در سلام
من با استفاده از این کد می توانم بفهمم که کابل شبکه به کامپوتر وصل است یا نه

اما من یک مشکلی دارم این است که این کد درست کار می کند ولی
مثلا
شبکه وصله حالا من روی شبکه کلیک می کنم (true ) را به من نشان میده

حالا کابل را بکشم و دوباره کلیک کنم همان (true) را نشان میده حالا وقتی من برنامه را ببندم و دوباره باز کنم (false) نشان می دهد

حالا من باید چه کار کنم


Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Function ChekConnect() As Boolean


Dim sConnType As String * 255


Dim ret As Long
ret = InternetGetConnectedStateEx(ret, sConnType, 255, 0)
If ret = 1 Then
ChekConnect = True
Conname = sConnType
Else
ChekConnect = False
End If
End Function
Private Sub Command1_Click()
Print ChekConnect
End Sub