Public Sub Tip( _
   ByVal Tip As String, _
   ByVal I As Double, _
   ByVal J As Double, _
   ByVal K As Double, _
   ByVal Angle As Double _
)