Yo all,
Here's what I'm wanting to do... I have a form with a picture box, text box and a button. I wanted to be able to enter a degree into the text box and then press the button, which would draw a line in the picture box facing that degree. Unfortunately, it didn't quite turn out that way. My lack of knowledge led me to creating a really lame piece of code that should be on a stand-up comedians jokes list. Now, I'm gonna' show you my code but please...before you start rolling over on the floor in hysterics...remember, I'm an idiot

Code:
Const PI As Single = 3.14159

Private Function DtoR(degrees As Double) As Double
    Dim rad As Double
    rad = degrees / PI
    DtoR = rad * 180
End Function


Private Sub cmdGo_Click()
    Dim degrees As Double
    Dim x2 As Double
    Dim y2 As Double
    
    
    face.Cls
    degrees = Val(txtDegrees.Text)
    x2 = Sin(DtoR(degrees))
    y2 = -(Cos(DtoR(degrees)))
    
    face.Line (face.Width / 2, face.Height / 2)-(x2 * 700, y2 * 700)
    
    
End Sub
If somebody could please have a look and correct it for me (after you've stopped laughing) I would be very grateful