Xin hỏi lỗi object doesn't support this property or method (1 người xem)

[songhoanhtin]

Private Sub cmd_Chen_anh_Click()
Dim x As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
x = Application.FileDiadlog(msoFileDialogOpen).Show '
If x <> 0 Then 'Chua an nut
FPATH = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.PictureSizeMode = 1
End If
End Sub