<code>Private Declare Function PathCompactPath Lib "shlwapi" _
  Alias "PathCompactPathA" (ByVal hDC As Long, _
  ByVal lpszPath As String, ByVal dx As Long) As Long<code>

<code>Dim strPath As String
Dim dx As Long
 
strPath = "E:WINNTsystem32spooldriversw32x862"
 
<font color=green>' Breite des Labels in Pixel</font>
dx = Label1.Width / Screen.TwipsPerPixelX
 
<font color=green>' API-Funktion</font>
PathCompactPath Me.hDC, strPath, dx
Label1.Caption = strPath</code>