Private Sub Forum_Load()
Show
Dim t,i,x1,y1
t="turkhackteam"
FontName=Times New Roman"
FontSize=15
For i=0 To 135
x1=ScaleWidth/2+30*i*Cos(i*0.1)
y1=ScaleHeight/3+30*i*Sin(i*0.1)
ForeColor=QBColor(i Mod 16)
CurrentX=x1
CurrentY=y1
Print t
Next
End Sub
Show
Dim t,i,x1,y1
t="turkhackteam"
FontName=Times New Roman"
FontSize=15
For i=0 To 135
x1=ScaleWidth/2+30*i*Cos(i*0.1)
y1=ScaleHeight/3+30*i*Sin(i*0.1)
ForeColor=QBColor(i Mod 16)
CurrentX=x1
CurrentY=y1
Print t
Next
End Sub
