Function CheckForNetworkConnectivity() As Boolean Dim oHostEntry As System.Net.IPHostEntry ‘ Fehlerbehandlung aktivieren Try ‘ Logon-Server aus den Umgebungsvariablen auslesen Dim sServer As String = Environment.GetEnvironmentVariable(“LOGONSERVER”) ‘ Host-Informationen ermitteln oHostEntry = System.Net.Dns.GetHostByName(sServer.Substring(2)) Return True Catch ‘ Fehler! Return False End Try End Function

data_stammdaten ist hier vom typ datagridview With data_stammdaten .Columns(0).Width = 50 .Columns(0).ValueType = GetType(Integer) .Columns(“Name”).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns(2).ValueType = GetType(Date) .Columns(3).Width = 50 .Columns(3).ValueType = GetType(Integer) End With

Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText(“test.txt”)