Combobox associata a directory

[yyzyyz]

spero di aver tradotto bene

Dim path_drive As String
Dim cartella As String
Private Sub Combo1_Click()
    cartella = Combo1.Text
    
    Select Case cartella
        Case "windows"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.bmp"
        
        Case "programmi"
        File1.Path = path_drive & cartella
        File1.Pattern = "*.exe"
    End Select
End Sub

Private Sub File1_Click()
On Error Resume Next
Image1.Picture = LoadPicture(File1.Path & "\" & (File1.FileName))
End Sub

Private Sub Form_Load()
path_drive = "c:\"
Combo1.Clear
Combo1.AddItem "windows"
Combo1.AddItem "programmi"
   
End Sub