'Chekc Internet connection
'Library for check Connect WiFi
Dim connect_wifi As VBConnect
'Library for check Connect Mobile
Dim ph As Phone
'In this case both ( WiFi / Mobile ) isnt connect
If ph.GetDataState = "DISCONNECTED" And connect_wifi.weconnected = "NO" Then
Msgbox("MSG", "INTERNET CONNECTION LOST")
Activity.Finish
Else
.....
End If