Public Class Form1
    Private Declare Function GetShortPathName Lib "kernel32.dll" Alias _
      "GetShortPathNameA" (ByVal lpszLongPath As String, _
      ByVal lpszShortPath As String, ByVal cchBuffer As Int32) As Int32
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim sShortName As String = Space$(256)
        Dim RetVal As Long = GetShortPathName("C:\Programme", sShortName, _
          sShortName.Length)
 
        If RetVal = 0 Then
            MsgBox("Es ist ein Fehler aufgetreten", MsgBoxStyle.Critical, _
              "Fehler")
        Else
            MsgBox("Der kruze Name lautet: " & sShortName.Substring(0, RetVal))
        End If
    End Sub
End Class