' zunbächst die benötigte API-Deklaration
    Private Declare Function GetDriveType Lib "kernel32" _
      Alias "GetDriveTypeA" ( _
      ByVal nDrive As String) As Long
 
    ' Prüfen, ob die Anwendung von einem Netzlaufwerk
    ' aufgerufen wurde
    Public Sub Main()
        Dim DriveType As Long
        Dim NoStart As Boolean
 
        ' Beginnt AppPath mit "\\", so wurde die 
        ' Anwendung direkt auf einem anderen Rechner gestartet
        NoStart = (Application.StartupPath.Substring(0, 2) = "\\")
        If Not NoStart Then
            ' Laufwerks-Typ abfragen
            ' 4 = RemoteDrive (Netzlaufwerk)
            NoStart = (GetDriveType(Application.StartupPath.Substring(0, 1) + _
              ":\") = 4)
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Label1.Text = GetDriveType(Nothing)
        If Label1.Text = 4 Then Label2.Text = "Anwendung wurde aus Netzlaufwerk" & _
          "gestartet" Else Label2.Text = "Anwendung wurde lokal gestartet"
    End Sub