Option Explicit
 
' Benötigte API-Deklarationen
Public Declare Function InternetGetConnectedState Lib "wininet.dll" ( _
  ByRef lpSFlags As Long, _
  ByVal dwReserved As Long) As Long
 
Const INTERNET_CONNECTION_LAN As Long = &H2
Const INTERNET_CONNECTION_MODEM As Long = &H1
Const INTERNET_CONNECTION_PROXY As Long = &H4
Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8
 
Public Function IfOnline()
  Dim icFlags As Long
 
  ' Verbindungen abfragen
  Call InternetGetConnectedState(icFlags, 0&)
  IfOnline = "Offline"
 
  ' Wenn Verbunden über LAN
  If icFlags And INTERNET_CONNECTION_LAN Then
    IfOnline = "Online"
  End If
 
  ' Wenn Verbunden Über Modem
  If icFlags And INTERNET_CONNECTION_MODEM Then
    IfOnline = "Online"
  End If
 
  ' Wenn Verbunden über Proxy
  If icFlags And INTERNET_CONNECTION_PROXY Then
    IfOnline = "Online"
  End If
 
  ' Wenn Modem gerade arbeitet (Verbindung besteht oder wird aufgebaut)
  If icFlags And INTERNET_CONNECTION_MODEM_BUSY Then
    IfOnline = "Online"
  End If
End Function

Private Sub Form_Load()
If ifonline = "Online" Then
    'Es besteht zur Zeit eine Verbindung zum Internet.
    'Call Gewünschte_Function
    Me.Show
ElseIf ifonline = "Offline" Then
    MsgBox "Zur Ausführung des Programms" & vbNewLine & _
      "wird eine Verbindung zum Internet benötigt", vbExclamation, "Keine" & _
      "Verbindung zum Internet"
    Unload Me
End If
End Sub