Windows VB.Net Tutorial

public class Test
   public Shared Sub Main
        Dim objWordApp As Word.Application
        objWordApp = New Word.Application
        Dim objDoc As New Word.Document
        'Show the Word application window if checked.
        objWordApp.Visible = IIf(chkShowWord.Checked, True, False)
        'Create a new Word document and add some text to it.
        objDoc = objWordApp.Documents.Add
        With objDoc
            .Range.InsertAfter("Printing with Word")
            .Paragraphs.Item(1).Range.Font.Bold = True
            .Paragraphs.Item(1).Range.Font.Size = 14
            .Range.InsertParagraphAfter()
            .Paragraphs.Item(2).Range.Font.Bold = False
            .Paragraphs.Item(2).Range.Font.Size = 12
            .Range.InsertAfter("This is the first line of the test printout")
            .Range.InsertParagraphAfter()
            .Range.InsertAfter("and this is the second line of the test printout")
            Try
                'Print the Word document.
                .PrintOut(True, True)
            Catch exc As Exception
                Console.WriteLine(exc.Message)
            End Try
        End With
        objWordApp.Documents.Close(Word.WdSaveOptions.wdDoNotSaveChanges)
        objWordApp.Quit()
        objWordApp = Nothing
   End Sub
End class