新建From1（窗体），新建Command1（按钮CommandButton），Picture1（PictureBox）代码：

Private Sub Command1_Click()
    Dim Msg    ' 声明变量。
    On Error Resume Next    ' 设置错误处理。
    
    Clipboard.Clear    ' 清除剪贴板。
    Clipboard.SetData LoadPicture(App.Path & "\123.bmp")    ' 取得位图。
    
    Debug.Print "Err=" & Err
    If Err Then
        Msg = "Can't find the file."
        MsgBox Msg    ' 显示错误信息，如果没找到文件，Err=53
        Exit Sub
    End If
      
    Picture1.Picture = Clipboard.GetData()     ' 从剪贴板上复制。

    'Picture1.Picture = LoadPicture(App.Path & "\123.bmp")
    'Picture1 = LoadPicture()    ' 清除图片。
End Sub

可以看到Picture1能显示bmp、gif图片，但是不能显示jpg和png图片。