| Dim j As Long, w As Long, h As Long
Private Sub Form_Initialize()
w = Picture1.ScaleWidth
h = Picture1.ScaleHeight
End Sub
Private Sub Command1_Click()
Dim r As Single
Picture1.Picture = Picture2.Picture
r = h / w
For j = 8 To w Step 4
Picture1.PaintPicture Picture3.Picture, 0, 0, j,
Devamını Görmek İçin Üye Girişi Yapmanız Gerekmektedir. |