Dim p(3000, 3000) As Long

Private Sub Command1_Click()

Print Picture1.Width

Print Picture1.Height

For I = 1 To Picture1.Height

For J = 1 To Picture1.Width

p(I, J) = Picture1.Point(I, J)

Next J, I

For J = 1 To Picture1.Width

For I = 1 To Picture1.Height

Picture1.PSet (J, I), p(I, J)

Next I, J

End Sub

نوشته شده در تاریخ سه شنبه 17 آذر 1388    | توسط: محمد و مجید َ    |    |
نظرات()