Dim App As System.Windows.Forms.Application
            Dim fiDll As New System.IO.FileInfo(App.StartupPath & "\sqldmo.dll")
            Dim fi As New System.IO.FileInfo(App.StartupPath & "\sqldmo.rll")
            If fi.Exists And fiDll.Exists Then
                Dim di As New System.IO.DirectoryInfo("C:\Winnt")
                If di.Exists Then
                    di = New System.IO.DirectoryInfo( _
                      "C:\Winnt\System32\Resources\1033")
                    If Not di.Exists Then di.Create()
                    fiDll.CopyTo("C:\Winnt\System32\sqldmo.dll", True)
                    fi.CopyTo("C:\Winnt\System32\Ressources\1033\sqldmo.rll", _
                      True)
                    StartProcess("C:\Winnt\system32\regsvr32.exe", , , _
                    "C:\Winnt\System32\sqldmo.dll")
                Else
                    di = New System.IO.DirectoryInfo( _
                      "C:\Windows\System32\Resources\1033")
                    If Not di.Exists Then di.Create()
                    fiDll.CopyTo("C:\Windows\System32\sqldmo.dll", True)
                    fi.CopyTo("C:\Windows\System32\Ressources\1033\sqldmo.rll", _
                      True)
                    StartProcess("C:\Windows\system32\regsvr32.exe", , , _
                    "C:\Windows\System32\sqldmo.dll")
                End If
            Else
                MsgBox(fi.Name)
            End If