مشکل این کد ساده

[amirrezaq]

با عرض سلام و خسته نباشید
میخواستم بدونم مشکل این کد چیه؟؟؟
بیاد نقاطی قرمز رنگ رو روی صفحه ایجاد کنه که نمیکنه...
با تشکر...

Dim i As Integer
For i = 1 To 2000
PSet (10, 15), [vbRed]
Next i

[vbhamed]

سلام
يكسري مقدمات داره
ضمنا شما تو كل حلقه داريد فقط روي يك مختصات ثابت نقطه ميزاريد
Private Sub Form_Load()
Me.ScaleMode = 3
Me.AutoRedraw = True
Dim i As Integer, j As Integer
For i = 1 To 50
For j = 0 To 50
PSet (i * 3, j * 3), vbRed
Next
Next
End Sub