이미지 컨트롤을 클릭해서 사진을 넣으려고 합니다.

'버튼 클릭 시에는 잘 작동합니다만 이미지 더블클릭 시에는 작동이 안되네요
 
 
Private Sub Image1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim pathPic As String
 
    ' 파일 대화 상자를 열어 이미지 파일을 선택합니다.
    pathPic = Application.GetOpenFilename("이미지 파일 (*.jpg; *.jpeg; *.png; *.gif), *.jpg; *.jpeg; *.png; *.gif")
 
    ' 사용자가 파일을 선택하지 않은 경우 또는 취소한 경우
    If pathPic = "False" Then
        Exit Sub
    End If
 
    ' 이미지 컨트롤에 이미지 로드
    Me.Image1.Picture = LoadPicture(pathPic)
End Sub
 
 
Private Sub CommandButton1_Click()
    Dim pathPic As String
 
    ' 파일 대화 상자를 열어 이미지 파일을 선택합니다.
    pathPic = Application.GetOpenFilename("이미지 파일 (*.jpg; *.jpeg; *.png; *.gif), *.jpg; *.jpeg; *.png; *.gif")
 
    ' 사용자가 파일을 선택하지 않은 경우 또는 취소한 경우
    If pathPic = "False" Then
        Exit Sub
    End If
 
    ' 이미지 컨트롤에 이미지 로드
    Me.Image1.Picture = LoadPicture(pathPic)
End Sub