vb中的图像的载入

Option Explicit
Private Sub Btn_Click()
Dim value As Integer
Dim name As String
'Btn.Picture = LoadPicture("E:\vbpro\num\1.jpg")
value = txtInput.Text
If value <= 6& & value >= 1 Then
name = getMage(value)
Btn.Picture = LoadPicture(name)
Else
txtInput.Text = " "
End If
End Sub
Private Function getMage(n As Integer) As String
getMage = "E:\vbpro\num\" & n & ".jpg"
End Function

Btn是一个按钮，想要的效果是点击按钮就出现相应的图片
但是就是出现不了 不知道哪里出现错误

Option Explicit
Private Sub Btn_Click()
Dim value As Integer
Dim name As String
'Btn.Picture = LoadPicture("E:\vbpro\num\1.jpg")
end sub

这个也是不能实现，实在不知道哪里错误
高手帮忙
Command1.Style(显示图像的按钮 在代码中是Btn)属性已经设置成 1-Graphical

VB载入图片的代码 关于VB载入窗体的问题 ps中，载入的图像作画布的背景 VB载入PNG vb如何载入图片 VB编程中的分段函数及其图像代码 vb 怎么载入自己目录的音乐.急! vb PictureBox载入图片的时候如何【自动缩放】？ 哪里有VB 用的图像图片下载? VB如何载入一组图片