Private Function Ausfuehren(ByVal sPfad As String)
Dim X As Variant
Call ShellExecute(Me.hwnd, "explore", sPfad, 0, 0, SW_NORMAL)
End Function

Private Sub cboVisualBasic_Change()
' im Index 0 steht die Überschrift händisch eingetragen drinnen
If (cboVisualBasic.ListIndex = 0) Then Exit Sub
sPfad = "E:\VisualBasic\" & cboVisualBasic.List(cboVisualBasic.ListIndex)
Ausfuehren sPfad
Unload Me
End Sub