如何控制我的图像要输出在image的中央呢？不知为什么我的图像总是在From的某个地方显示？

源码如下，
cmdopen 打开文件
cmdshang 上一张图片
cmdnext 下一张图片。
程序如下：
Dim FileIndex As Integer, BmpFilePath As String, BmpFileName As StringPrivate Sub cmdShang_Click()
 If FileIndex = 0 Then '上一张
   cmdShang.Enabled = False
 Else
   FileIndex = FileIndex - 1
   cmdNext.Enabled = True
   ShowBmp
 End If
End SubPrivate Sub CmdNext_Click()
 If FileIndex = List1.ListCount - 1 Then '下一张
   Command2.Enabled = False
 Else
  FileIndex = FileIndex + 1
  cmdShang.Enabled = True
  ShowBmp
 End If
End SubPrivate Sub cmdOpen_Click()
  Dim i As Integer, ilen As Integer
  CommonDialog1.DefaultExt = "BMP文件(*.BMP)|*.BMP"
  CommonDialog1.Filter = "BMP文件(*.BMP)|*.BMP|JPG文件(*.jpg)|*.jpg|ICO文件(*.ico)|*.ico|GIF文件(*.gif)|*.gif"
  CommonDialog1.ShowOpen '打开文件
  ilen = Len(CommonDialog1.FileName)
  For i = 1 To ilen
    If Mid(CommonDialog1.FileName, ilen - i + 1, 1) = "\" Then
      BmpFilePath = Mid(CommonDialog1.FileName, 1, ilen - i + 1)
      BmpFileName = Mid(CommonDialog1.FileName, ilen - i + 2, ilen - i)
     Exit For
    End If
    DoEvents
  Next i
  FindFiles '列出该目录下的所有图像文件
  ShowBmp '显示图片
  If FileIndex = 0 Then
    cmdShang.Enabled = False
  Else
    cmdShang.Enabled = True
  End If
  If filindex = List1.ListCount - 1 Then
   cmdNext.Enabled = False
  Else
  cmdNext.Enabled = True
  End If
End SubPrivate Sub Form_Load()  Image1.Left = Picture1.Left
  Image1.Top = Picture1.Top  FileIndex = 0
 cmdShang.Enabled = False
  cmdNext.Enabled = False
  List1.Visible = False
  File1.Visible = False
End SubSub FindFiles()
    Dim m As Integer
    File1.Path = BmpFilePath
       List1.Clear
       m = 0
    For t& = 0 To File1.ListCount - 1
       If Right$(File1.List(t&), 4) = ".bmp" Or Right$(File1.List(t&), 4) = ".BMP" _
            Or Right$(File1.List(t&), 4) = ".jpg" Or Right$(File1.List(t&), 4) = ".gif" _
            Or Right$(File1.List(t&), 4) = ".ico" Then
          List1.AddItem File1.List(t&)
         If File1.List(t&) = BmpFileName Then
          FileIndex = m '纪录打开的文件
         End If
         m = m + 1
       End If
    Next
 End Sub
Sub ShowBmp()
    Image1.Picture = LoadPicture(List1.List(FileIndex)) '显示图片
End Sub