thnks
kaymaf
Private Sub Command10_Click() Picture1.Picture = Picture2.Picture For j = 8 To h Step 25 Picture1.PaintPicture Picture3.Picture, 0, 0, w, j, 0, 0, w, h DoEvents Next End Sub
This post has been edited by kaymaf: 08 April 2008 - 05:52 PM




Posted 08 April 2008 - 05:51 PM
Private Sub Command10_Click() Picture1.Picture = Picture2.Picture For j = 8 To h Step 25 Picture1.PaintPicture Picture3.Picture, 0, 0, w, j, 0, 0, w, h DoEvents Next End Sub
This post has been edited by kaymaf: 08 April 2008 - 05:52 PM
|
|
Query failed: connection to localhost:3312 failed (errno=111, msg=Connection refused).
|
