How to control AutoCad LT with Visual Basic 6

[shamsam1]

i have autocad2007 and autocad LT 2006 in my system i want to open dwg files in autccad Lt 2006 using vb.6 code.

i want to modify the above code and open dwg drawings in Lt

above code will open drawing in autocad2007

Dim DwgName As String
        On Error Resume Next
        Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
   Set acadApp = CreateObject("AutoCAD .Application")
   Err.Clear
        End If
'        If Right(App.Path, 1) = "\" Then
   '            DwgName = "C:\13027167-GX2.dwg"
   '        Else
   '            DwgName = "C:\13027167-GX2.dwg"
'        End If
        Set acadDoc = acadApp.ActiveDocument
        If acadDoc.FullName <> DwgName Then
   acadDoc.Open DwgName
        End If
        Dim str As String, str1 As String
        str1 = "_-insert" & vbLf & """" & "C:\14001120-AA8232-AC8232-AZ665.dwg" & """" & vbLf & "0,0,0" & vbLf & vbLf & vbLf & vbLf & "z" & vbLf & "a" & vbLf
        'str = "dwin" & vbLf
        acadDoc.SendCommand str1
       ' acadDoc.SendCommand str
acadApp.Visible = True