Private Sub Command1_Click()
TimCuadros.Enabled = Not TimCuadros.Enabled
End Sub
Private Sub TimCuadros_Timer()
Dim coor(0 To 3) As Single ' esto es x1,x2,y1,y2 en ese orden
Dim veces As Integer, colorRnd As Long
Dim limite As Single ' límite de ancho o de alto
Dim drawmodo As Byte ' para cambiar el drawmode del contenedor
' el número 50 limita el máximo
veces = Int(((50 - 0 + 1) - (1)) * Rnd) ' este si debe estar fuera, signa el bucle
' estas 2 líneas si se meten dentro del bucle se cambia con cada cuadro dibujado
drawmodo = Int(((15 - 1 + 1) - (1 + 1)) * Rnd + 1)
Me.DrawMode = drawmodo
For v = 1 To veces
For k = 0 To 3 ' tomamos coordenadas aleatroiamente
If k Mod 2 = 0 Then
limite = Me.Width ' es decir x1 y x2
Else
limite = Me.Height ' es decir y1 e y2
End If
coor(k) = Int(((limite - 0 + 1) - (1)) * Rnd)
Next
colorRnd = Int((((2 ^ 24 - 1) - 0 + 1) - (1)) * Rnd)
Form1.Line (coor(0), coor(1))-(coor(2), coor(3)), colorRnd, BF
Next
End Sub