放大的大致思路,可能不对!
Dim w1 As Integer = 200
Dim h1 As Integer = 200
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Graphics = Me.PictureBox1.CreateGraphics
Dim b As Image = Image.FromFile("C:\Documents and Settings\Administrator\My Documents\My Pictures\6.jpg")
Dim c As Rectangle = New Rectangle(0, 0, w1, h1)
a.DrawImage(b, c)
w1 += 200
h1 += 200
End Sub