Private Declare Function GetModuleFileName Lib "kernel32" _
   Alias "GetModuleFileNameA" ( _
   ByVal hModule As Long, _
   ByVal lpFileName As String, _
   ByVal nSize As Long) As Long
 
 
Public Function sAppName() As String
   Dim nResult As Long
   Dim sName As String
 
   sName = Space$(255)
   nResult = GetModuleFileName(0, sName, Len(sName))
   If nResult > 0 Then
      sAppName = Left$(sName, nResult)
   End If
End Function

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control