Public Class frmOnderzoekOffice

    Private Sub btnInlezen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInlezen.Click
        Dim vorige, huidige As String
        Dim i As Short

        FileOpen(1, Application.StartupPath & "/Testresultaten.txt", OpenMode.Input)

        i = 1
        Do While Not EOF(1)
            Input(1, vorige)
            Input(1, huidige)


            Select Case i
                Case 1
                    txtV1.Text = vorige
                    txtH1.Text = huidige

                Case 2
                    txtV2.Text = vorige
                    txtH2.Text = huidige

                Case 3
                    txtV3.Text = vorige
                    txtH3.Text = huidige

                Case 4
                    txtV4.Text = vorige
                    txtH4.Text = huidige

                Case 5
                    txtV5.Text = vorige
                    txtH5.Text = huidige
            End Select

            i += 1
        Loop
        FileClose(1)
    End Sub

    Private Sub btnHnaarV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHnaarV.Click
        txtV1.Text = txtH1.Text
        txtV2.Text = txtH2.Text
        txtV3.Text = txtH3.Text
        txtV4.Text = txtH4.Text
        txtV5.Text = txtH5.Text

        txtH1.Text = ""
        txtH2.Text = ""
        txtH3.Text = ""
        txtH4.Text = ""
        txtH5.Text = ""
    End Sub

    Private Sub btnOpslaan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpslaan.Click


    End Sub

    Private Sub btnAfdrukken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAfdrukken.Click
        Dim bestand As String = Application.StartupPath & "\Office.xls"

        'Declaratie van de variabelen
        Dim xlToep As New Microsoft.Office.Interop.Excel.Application
        Dim xlWerkmap As Microsoft.Office.Interop.Excel.Workbook
        Dim xlWerkblad As New Microsoft.Office.Interop.Excel.Worksheet

        'Openen van de werkmap
        xlWerkmap = xlToep.Workbooks.Open(bestand)
        xlWerkblad = CType(xlWerkmap.ActiveSheet, Microsoft.Office.Interop.Excel.Worksheet)

        xlWerkblad.PrintOutEx()

        xlWerkblad = Nothing
        xlWerkmap = Nothing
        xlToep.Quit()
        xlToep = Nothing
    End Sub
End Class