Dim filePath As String

filePath = "C:\path\to\your\image.jpg"   ' 图片文件路径

If Dir(filePath) <> "" Then  ' 检查图片文件是否存在

    Picture1.Picture = LoadPicture(filePath)  ' 载入图片

    MsgBox "图片宽度：" & Picture1.ScaleWidth & vbCrLf & "图片高度：" & Picture1.ScaleHeight, vbInformation

Else

    MsgBox "图片文件不存在！", vbExclamation

End If

在上面的示例中，我们首先使用 Dir 函数检查图片文件是否存在，如果存在，则使用 LoadPicture 方法载入图片，并将其赋值给 Picture1.Picture 属性。然后我们使用 Picture1.ScaleWidth 和 Picture1.ScaleHeight 属性读取图片的宽度和高度，并在消息框中显示出来。

需要注意的是，LoadPicture 方法只能用于 BMP、ICO、CUR、WMF、EMF、JPG 和 GIF 格式的图片，对于其他格式的图片需要使用专业的第三方库或者 API 进行处理。此外，在实际应用中，还应该考虑图片可能存在旋转、缩放等操作对宽度和高度的影响。