Private Sub GridSettings_Click(sender As Object, e As EventArgs) Handles GridSettings.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDraftDoc As SolidEdgeDraft.DraftDocument
    Dim objSheet As SolidEdgeDraft.Sheet
    Dim objBlockOccs As SolidEdgeDraft.BlockOccurrences
    Dim objBlockOcc As SolidEdgeDraft.BlockOccurrence
    Dim strDisplayedText As String

    Try

        objApplication = Marshal.GetActiveObject("SolidEdge.Application")
        objDraftDoc = objApplication.ActiveDocument
        objSheet = objDraftDoc.ActiveSheet

        objDraftDoc.FilePreferences.GRIDAngle = 1.57
        objDraftDoc.FilePreferences.GRIDDisplayGridMode = SolidEdgeDraft.GridDisplayOptionsConstants.igGridDisplayedAsLines
        objDraftDoc.FilePreferences.GRIDMajorLine = 0.08
        objDraftDoc.FilePreferences.GRIDMinorSpaces = 8
        objDraftDoc.FilePreferences.GRIDSnapToGridMode = SolidEdgeDraft.GridSnapOptionsConstants.igGridSnapUsingPoints
        objDraftDoc.UpdatePropertyTextDisplay()
    Catch ex As Exception
        MsgBox(ex.ToString)
        Clipboard.SetText(ex.ToString)
    End Try
End Sub