大家帮帮忙，谢谢 关于image

我想做一个图片任意放大的程序，当点击command1，picture1中的image1就放大，我便了一下程序，大家帮忙看看怎吗不行？？？

Option Explicit
Dim dscale As Integer
Dim widscale As Integer
Dim heiscale As Integer
Dim topscale As Integer
Dim leftscale As Integer

Private Sub Command1_Click()
dscale = 500
widscale = Image1.Width + dscale * 2
heiscale = Image1.Height + dscale * 2
topscale = Image1.Top - dscale
lefscale = Image1.Left - dscale
Image1.Move lefscale, topscale, widscale, heiscale
End Sub

Private Sub Form_Load()
Image1.Picture = LoadPicture("c:\bmp\bb.bmp")
x = Picture1.Width / 2
y = Picture1.Height / 2
Image1.Left = x - Image1.Width / 2
Image1.Top = y - Image1.Height / 2
Form1.WindowState = vbMaximized
End Sub

是不是我加载的图片格式不对？