Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim dlg As OpenFileDialog = New OpenFileDialog
            dlg.Title = "Open Drawing"
            dlg.Filter = "Drawing Files (*.dwg)|*.dwg"
            If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                TextBox1.Text = dlg.FileName
                MsgBox("works slowly, be patience...")
        Dim fname As String = dlg.FileName
                ReflectionCommands.TestACAD(fname)
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Me.Close()
    End Sub
End Class