Hem / Tips & tricks
Private Sub Command1_Click() If CheckInternetConnection("http://www.pellesoft.nu/") Then MsgBox "Fungerar" Else MsgBox "Fungerar inte" End IfEnd Sub