VB PaintPicture画窗体问题，不知道要怎么搞？？？？

VB PaintPicture画窗体问题，不知道要怎么搞？？？？
load 还可以
但是放大窗体就有问题了
不知道要怎么写画窗体中心的代码？
那位高手赐教Private Sub Form_Resize()
On Error Resume Next
'改变一些控件位置
IMBar.Width = Me.Width - 680Immin.Top = 80
Immin.Left = Me.Width - 640
Imclose.Top = 80
Imclose.Left = Me.Width - 320'用于把主窗体图片打印成适合窗体大小
'Me.Line (0, 0)-(Me.Width, Me.Height), Me.BackColor, BF
Me.PaintPicture Pmain.Picture, 420, 0, Me.Width, 600, 420, 0, 120, 600
Me.PaintPicture Pmain.Picture, 420, Me.Height - 600, Me.Width, 600, 420, Pmain.Height - 600, 120, 600Me.PaintPicture Pmain.Picture, 0, 0, 200, Me.Height, 0, 880, 200, 40
Me.PaintPicture Pmain.Picture, Me.Width - 200, 0, 200, Me.Height, Pmain.Width - 200, 880, 200, 40Me.PaintPicture Pmain.Picture, 0, 0, 450, 600, 0, 0, 450, 600
Me.PaintPicture Pmain.Picture, 0, Me.Height - 600, 450, 600, 0, Pmain.Height - 600, 450, 600Me.PaintPicture Pmain.Picture, Me.Width - 1665, 0, 1665, 435, Pmain.Width - 1665, 0, 1665, 435
Me.PaintPicture Pmain.Picture, Me.Width - 1665, Me.Height - 525, 1665, 525, Pmain.Width - 1665, Pmain.Height - 525, 1665, 525
'‘这个地方还要加一行画窗体的中心，要怎么写啊
Me.PaintPicture Imico, 100, 80, 240, 240, 0, 0, 240, 240 '打印标题图标
'Me.ForeColor = 12691863
'Me.CurrentX = 530
'Me.CurrentY = 110
'Me.Print Me.Caption '打印标题，有阴影的
Me.ForeColor = &HFFFFFF
Me.CurrentX = 380
Me.CurrentY = 80
Me.Print Me.captionRMeEnd Sub