Private Sub Command1_Click()
Dim X As Single
Dim Y As Single
Dim x0 As Integer
Dim x1 As Integer
Dim y0 As Integer
Dim y1 As Integer

Picture1.Scale (1, 1)-(1120, 780)
For Y = 1 To 780 Step 100
For X = 1 To 1120
 Picture1.Line (X, Y)-(1120, Y), vbRed
Next X
Next Y
For X = 1 To 1120 Step 100
For Y = 1 To 780
 Picture1.Line (X, Y)-(X, 780), vbRed
Next Y
Next X

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cls
Me.Print X, Y, Shift '鼠标位置
If Shift = 1 Then '
'
   x0 = (Fix(X / 100)) * 100 + 1
   x1 = x0 + 99                               ' 鼠标所在区域
   y0 = (Fix(Y / 100)) * 100 + 1
   y1 = y0 + 99
   Picture2.Scale (x0 * 2, y0 * 2)-(x1 * 2, y1 * 2) '在picture2里放大
End If
End Sub

Private Sub End_Click()
End
End Sub
改成如上，我以为能如愿放大，实际不成，错字那，不知道。请高手及版主帮忙解惑。谢谢！

BorderStyled的值支持0-5

一般窗体的属性含义如下：
vbBSNone        0   无（没有边框或与边框相关的元素）。     
vbFixedSingle     1   固定单边框。可以包含控制菜单框，标题栏，“最大化”按钮，和“最小化”按钮。只有使用最大化和最小化按钮才能改变大小。     
vbSizable      2   (缺省值)可调整的边框。可以使用设置值1列出的任何可选边框元素重新改变尺寸。     
vbFixedDouble     3   固定对话框。可以包含控制菜单框和标题栏，不能包含最大化和最小化按钮，不能改变尺寸。     
vbFixedToolWindow  4   固定工具窗口。不能改变尺寸。显示关闭按钮并用缩小的字体显示标题栏。窗体在   Windows   95   的任务条中不显示。      
vbSizableToolWindow 5   可变尺寸工具窗口。可变大小。显示关闭按钮并用缩小的字体显示标题栏。窗体在   Windows   95   的任务条中不显示。

感谢wgs1991老师，一直没上论坛，今日得见您的回复十分感谢。我把原进程删除重写。问题解决了。但仍谢谢。希望放大问题能给帮忙。再至谢意！