Фотоальбом

Option Explicit
Dim p, o
 
Dim z1
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Dim s As Long, c As ColorConstants
 
Private Sub Command1_Click()
 
For p = 0 To Picture1.Width
For o = 0 To Picture1.Height 'Step 2
c = RGB(255, 255, 255)
s = SetPixel(Picture1.hdc, p + Sin(z1 * o), o + Cos(z1 * p), (GetPixel(Picture1.hdc, p, o)))
Next o
Next p
End Sub
 
Private Sub VScroll1_Change()
z1 = VScroll1.Value
 
End Sub
 
Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 1
VScroll1.Min = 1: VScroll1.Max = 10
Picture1.AutoRedraw = False
 
 
End Sub