بالاضافة الى ما تفضل به استاذنا الفاضل @الفلاحجى وله الشكر تفضل اخي الكريم Private Sub Command65_Click() With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Pic Files", "*.jpg ; *.bmp" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then Me.IMG = .SelectedItems(1) End If End With End Sub FAILURE.rar تحياتي