Imports Docs.Word Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Creates a new instance of Document class and reads a .doc file into this structure Dim Doc As New Document() Doc.ReadDoc("..\..\Data\WordColumns.doc") ' Gets the columns properties Dim tColumns As Columns_Style = Doc.Sections(0).Columns textBox1.Text += "Columns count" & vbTab & vbTab & vbTab & ": " + tColumns.ColumnsCount.ToString & vbCr & vbLf textBox1.Text += "Are columns evenly spaced?" & vbTab & vbTab & ": " + tColumns.EvenlySpaced.ToString & vbCr & vbLf textBox1.Text += (("Columns width (in twips)" & vbTab & vbTab & ": " + tColumns.Width(0).ToString & ", ") + tColumns.Width(1).ToString & ", ") + tColumns.Width(2).ToString & vbCr & vbLf textBox1.Text += ("Spacing between columns (in twips)" & vbTab & ": " + tColumns.SpacingBetweenColumns(0).ToString & ", ") + tColumns.SpacingBetweenColumns(1).ToString & vbCr & vbLf textBox1.Text += "Line between columns" & vbTab & vbTab & ": " + tColumns.LinesBetweenColumns.ToString & vbCr & vbLf End Sub End Class