ای دل غافل:بازدیدکننده داره ولی هیشکی یه تشکر نمیکنه هیکد:'Dim I(1 To 8) As Integer, S(1 To 8), g(1 To 8) As IntegerPrivate Sub Command1_Click()
ForeColor = 0: x = CurrentX: y = CurrentY
For I = 1 To 100
Print "REZA SALARY" ' Text Here
x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next
ForeColor = &HFFFF& 'Change Color Here
Print "REZA SALARY" ' Text Goes Here
End Sub
