Try
If PictureBox1.Image.ToString <> "" Then
Label1.Text = "有图像"
End If
Catch ex As Exception
Label1.Text = "无图像"
End Try
如果有图片PICTURE的值不等于0.
If Picture1.Picture = LoadPicture Then MsgBox "没载入图片"