一起来学vb.net(2，CAD.net调试不再是问题---续..）

Imports System.IO
Public Class Form1
    Public Function SortbycreateTime(ByVal x As String, ByVal y As String) As Integer
        Dim xinfo As New FileInfo(x)
        Dim yinfo As New FileInfo(y)
        Return -xinfo.CreationTime.CompareTo(yinfo.CreationTime)
    End Function
    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
       
        Me.Hide()
        Me.Dispose(True)
        End
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim Mpath As String = My.Computer.FileSystem.CurrentDirectory
        Dim Mdlls As String() = Directory.GetFiles(Mpath, "*.dll")
        Array.Sort(Mdlls, AddressOf SortbycreateTime)
        Dim Filestr As String = Mdlls(0)
        Dim Myinfo As New FileInfo(Filestr)
        Dim Mcmd As String = System.Text.RegularExpressions.Regex.Replace(Myinfo.Name, "\d*\.dll$", "")
        ' MsgBox(Mcmd)
        If Filestr  "" Then
            Dim acadApp As Object = GetObject(, "AutoCAD.Application")
            Dim AcadD As Object = acadApp.ActiveDocument
            Dim Mnet As String = Replace(Filestr, "", "/")
            AcadD.SetVariable("FILEDIA", 0)
            AcadD.SendCommand("(command " & Chr(34) & "netload" & Chr(34) & Chr(34) & Mnet & Chr(34) & ")" & Chr(13))
            AcadD.SetVariable("FILEDIA", 1)
            AcadD.SendCommand(Mcmd)
            AcadD = Nothing
            acadApp = Nothing
        End If
    End Sub
End Class