Kan ikke udskrive picturebox

Når jeg forsøger at udskrive pictureboxen (P2) får jeg denne fejl: Invalid property value

Jeg kan kun printe ictureboxen ud hvis jeg f.eks. smider et gif.billede derind. Men den grafik som nedenstående laver, kommer ikke med ?

Private Sub Command3_Click()
Dim cx As Single
Dim cy As Single
Dim Lat As Single
Dim R As Single
Dim X1 As Single
Dim Y1 As Single
Dim X2 As Single
Dim Y2 As Single
Dim Sign As Integer
Dim K As Double
Dim Phaseangle As Single


Phaseangle = Angle(Text1)

K = Atn(1) / 45
p2.ScaleMode = 3 ' 3
p2.DrawWidth = 2
R = p2.ScaleWidth / 3 '2
cx = R
cy = R
If Phaseangle >= 360 Then
Phaseangle = Phaseangle Mod 360
End If
If Phaseangle > 180 Then
Sign = 1
Phaseangle = Phaseangle - 180
Else
Sign = -1
End If
If Phaseangle = 180 Then Exit Sub
p2.Cls
For Lat = -90 To 90
X1 = cx + R * Cos(Phaseangle * K) * Cos(Lat * K)
  Y1 = cy - R * Sin(Lat * K)
  X2 = cx + R * Cos(Lat * K) * Sign
  Y2 = cy - R * Sin(Lat * K)
p2.Line (X1, Y1)-(X2, Y2), RGB(0, 0, 80)

Next

SavePicture p2, App.Path & "\gif\p2.gif"

End Sub