علیک سلام
من چون بلد نیستم نمی تونم کمکت کنم ولی
این کد را نگاه کن ببین به کارت میاد یا نه و می تونی چیزی از توش دربیاری!؟
البته جواب سوال شما نیست
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error Resume Next
Cls
p = 3.141593
For s = 0 To 370 Step 5
Xx = 4000 + 1500 * Cos(p * s / X)
Yy = 3705 + 900 * Sin(p * s / Y)
Circle (Yy + s, Xx), 300, Paint
Next s
End Sub
بعد تست کد می توانید عدد 300 را پاک کرده و جای ان X بگذارید370 , 3700 نیز بگذارید
و حتی می توانید به
پاسخ با نقل قول