Don't worry dear use try this. I hope this is helpful to you.

Private Declare Function InternetGetConnectedState Lib "wininet" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Private Sub Timer1_Timer()
 If InternetGetConnectedState(0, 0) = 1 Then
        lblResult.Caption = "Connected"
    Else
        lblResult.Caption = "Not Connected"
    End If
End Sub

enjoy

Hello I hope you are fine
the code is work just explain are you sure
The file parmanantly deleted to my hard disk
Thanks