Shape на форме в vb 6.0

Формулировка задачи:

Подскажите пожалуйста как сделать .. Нужно что бы n количество Shape(квадратов) появлялось на форме в рандомном месте . Использовал и add и Load для создания ,но это приводит к ошибкам (360) ..Подскажите как это правильно написать.

Решение задачи: «Shape на форме в vb 6.0»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim I As Integer, N As Integer
    N = 15
    For I = 0 To N
        If I > 0 Then
            Load Shape1(I)
        End If
        With Shape1(I)
            .Top = Rnd * (Me.ScaleHeight - .Height)
            .Left = Rnd * (Me.ScaleWidth - .Width)
            .Visible = True
        End With
    Next I
End Sub
                        

Оцени полезность:

9 голосов , оценка 3.889 из 5

Похожие ответы