Imports System.IO Imports System.Reflection Module Globals Public Userdata As New DataSet Public UserRechte As Integer = -1 Public Mitarbeiternr As String Public tgnummer As String Public DefaultExtension As Integer = 0 Public Applikationsdaten As New DataTable Public Function ApplicationPath() As String Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\" End Function End Module