0 Members and 1 Guest are viewing this topic.
<CommandMethod("teste")> Public Sub teste() Dim f As New OpenFileDialog If Not f.ShowDialog Then Exit Sub Dim dbt As New Database(False, True) dbt.ReadDwgFile(f.FileName, FileOpenMode.OpenForReadAndReadShare, False, Nothing) End Sub