[matpez]

Guarda se ti può interessare questa cosa per il multi language: http://www.visual-basic.it/uploads/a...nici/gbMLS.htm


Per quanto riguarda la label ti mando una mia funzione che aiuta a fare cioè che ti serve, cioè il controllo della presenza di una pagina...

Private Const IF_NO_CACHE_WRITE = &H4000000

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer


Public Function IsURLActive(ByVal sURL As String) As Boolean
   
  Dim lInternet        As Long
  Dim lSession         As Long
  
  
  DoEvents
  
  'prendo l'handle della connessione corrente
  lSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
  
  'prendo l'handle dell'URL
  If lSession Then
    lInternet = InternetOpenUrl(lSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
  End If
  
  If lInternet <> 0 Then
    IsURLActive = True
  End If
  
  'chiudo l'URL
  Call InternetCloseHandle(lInternet)
    
End Function

PS: le dichiarazioni vanno messe nella Option Explicit