如何让一扇形转起来？

Public r
Private Sub Form_Load()
Picture1.Scale (-Picture1.Width / 2, Picture1.Height / 2)-(Picture1.Width / 2, -Picture1.Height / 2)
timer1.interval=100
r = 1600
End Sub

Private Sub Timer1_Timer()
Static angle
angle = angle + 1
Picture1.Cls
Picture1.Line (0, 0)-(r * Cos(angle / 180 * 3.14), r * Sin(angle / 180 * 3.14))
Picture1.Line (0, 0)-(r * Cos((angle + 160) / 180 * 3.14), r * Sin((angle + 160) / 180 * 3.14))
Picture1.Circle (0, 0), r, , angle / 180 * 3.14, (angle + 160) / 180 * 3.14
End Sub