Private Sub SetStoredRotation(ByVal obj As DBObject, ByVal rotation As Double)
AddRegAppTableRecord(kRegAppName)
Dim rb As ResultBuffer = obj.XData
If rb Is Nothing Then
[u]rb = New ResultBuffer[/u](New TypedValue(kAppCode, kRegAppName), New TypedValue(kRotCode, rotation))
Else
rb.Add(New TypedValue(kAppCode, kRegAppName))
rb.Add(New TypedValue(kRotCode, rotation))
End If
obj.XData = rb
rb.Dispose()
End Sub