Imports DigitalData.Modules.Logging

Public Class Form1
    Private oSubform As Form2

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oResult = OpenFileDialog1.ShowDialog()

        If oResult = DialogResult.OK Then
            TextBox1.Text = OpenFileDialog1.FileName
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            oSubform.FilePath = TextBox1.Text
            oSubform.ShowDialog()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim oKey = "0467389434974657969312056"
        Dim oLogConfig As New LogConfig(LogConfig.PathType.CurrentDirectory)
        oSubform = New Form2(oLogConfig, oKey)
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

    End Sub


End Class