Private Sub Command1_Click()
 
sx = 2000
sy = 2000
 
For m = 1 To 10000
 
Picture1.PSet (sx, sy), BackColor
 
ax = Int((1 - (-1) + 1) * Rnd + (-1))
ay = Int((1 - (-1) + 1) * Rnd + (-1))
 
 
nx = sx + ax
ny = sy + ay
 
Picture1.PSet (nx, ny)
 
For ms = 1 To 50000
Next ms
 
sx = nx
sy = ny
 
Next m
 
End Sub

Private Type wertepaare
x As Integer
y As Integer
End Type
Dim ax
Dim ay
Dim nx
Dim ny
 
 
 
Private Sub Command1_Click()
 
Dim punkt(1 To 1000) As wertepaare
 
For nr = 1 To 10
punkt(nr).x = Int(Rnd * 100)
punkt(nr).y = Int(Rnd * 100)
 
Next nr
 
Picture1.ScaleHeight = 100
Picture1.ScaleWidth = 100
 
For p = 1 To 10
Picture1.PSet (punkt(p).x, punkt(p).y)
Next p
 
For q = 1 To 10
sx = punkt(q).x
sy = punkt(q).y
 
For m = 1 To 10000
 
Picture1.PSet (sx, sy), BackColor
 
ax = Int((1 - (-1) + 1) * Rnd + (-1))
ay = Int((1 - (-1) + 1) * Rnd + (-1))
 
nx = sx + ax
ny = sy + ay
 
Picture1.PSet (nx, ny)
 
For ms = 1 To 50000
Next ms
 
sx = nx
sy = ny
 
Next m
Next q
End Sub