[DestyNova]

Never mind, I got it but still have double line space problem =\

double space problem:

Option Explicit

Dim angle, pi As Integer


Private Sub form_load()

pi = 3.14159

End Sub


Private Sub tmr1_Timer()

'pic1.Cls

If angle <= 359 Then

pic1.Line (278.5, 186.5)-(278.5 + 100 * Math.Sin(angle * (pi / 180)), 186.5 + 100 * Math.Cos(angle * (pi / 180))), vbBlack

angle = angle + 1

End If

'If angle >= 360 Then angle = 0

lbl1.Caption = "Angle = " & angle

End Sub

instead it should be like this:

Option Explicit
Dim angle, pi As Integer

Private Sub form_load()
pi = 3.14159
End Sub

Private Sub tmr1_Timer()
'pic1.Cls
If angle <= 359 Then
pic1.Line (278.5, 186.5)-(278.5 + 100 * Math.Sin(angle * (pi / 180)), 186.5 + 100 * Math.Cos(angle * (pi / 180))), vbBlack
angle = angle + 1
End If
'If angle >= 360 Then angle = 0
lbl1.Caption = "Angle = " & angle
End Sub

So how? I only wish that there is a instruction to help me and anyone to look for excat codes to put after or before instead of based on lucky guess as I did but still getting double space problem. I m going to be king of the bump on this thread until solution come up =P