http://www.zwsoft.com/forum/viewthread.php?tid=1609 Hi Guys im new here &amp; need your help i am in need. What went wrong: i made vb6 application and it is running fine with autocad, but when i modify it for zwcad &amp; run it, then zwcad ask me to pick the block with attributes, when i select the block with attributes, then press the enter key, nothigs happen to my blockattributes. In autocad it will update everything in my block attributes. Please Help me, Here is my code Private Sub Command1_Click() Dim varUserInput As Variant Dim objZCAD As ZwcadApplication Dim objDOC As ZwcadDocument Dim objNEWSS As ZwcadSelectionSet Dim varPT1 As Variant Dim intGroupCode(0 To 4) As Integer Dim varGroupValue(0 To 4) As Variant Dim entTypeConstant As String Dim I As Integer Dim attribs As Variant intGroupCode(0) = -4 varGroupValue(0) = "&lt;OR" intGroupCode(1) = 0 varGroupValue(1) = "insert" intGroupCode(2) = 0 varGroupValue(2) = "text" intGroupCode(3) = 0 varGroupValue(3) = "mtext" intGroupCode(4) = "-4" varGroupValue(4) = "OR>" Set objZCAD = GetObject(, "Zwcad.Application") Set objDOC = objZCAD.ActiveDocument On Error Resume Next objDOC.SelectionSets.Item("OWITBL").Delete Err.Clear Set objNEWSS = objDOC.SelectionSets.Add("OWITBL") Form1.Hide PickOnScreen: objNEWSS.SelectOnScreen intGroupCode, varGroupValue For I = 0 To objNEWSS.Count - 1 If entTypeConstant = ZwcadBlockReference Then attribs = objNEWSS.Item(I).GetAttributes attribs(0).TextString = Combo1.Text attribs(1).TextString = Combo2.Text attribs(2).TextString = Combo3.Text attribs(3).TextString = Combo4.Text attribs(4).TextString = Combo5.Text attribs(5).TextString = Combo6.Text attribs(6).TextString = Combo7.Text attribs(7).TextString = Combo8.Text attribs(8).TextString = Combo9.Text attribs(9).TextString = Combo10.Text attribs(10).TextString = Combo11.Text attribs(11).TextString = Combo12.Text attribs(12).TextString = Combo13.Text attribs(13).TextString = Combo14.Text attribs(14).TextString = Combo15.Text attribs(15).TextString = Text15.Text attribs(16).TextString = Text14.Text attribs(17).TextString = Text13.Text attribs(18).TextString = Text12.Text attribs(19).TextString = Text11.Text attribs(20).TextString = Text10.Text attribs(21).TextString = Text9.Text attribs(22).TextString = Text8.Text attribs(23).TextString = Text7.Text attribs(24).TextString = Text6.Text attribs(25).TextString = Text5.Text attribs(26).TextString = Text4.Text attribs(27).TextString = Text3.Text attribs(28).TextString = Text2.Text attribs(29).TextString = Text1.Text attribs(30).TextString = Text47.Text attribs(31).TextString = Text46.Text attribs(32).TextString = Text45.Text attribs(33).TextString = Text44.Text attribs(34).TextString = Text43.Text attribs(35).TextString = Text42.Text attribs(36).TextString = Text41.Text attribs(37).TextString = Text40.Text attribs(38).TextString = Text39.Text attribs(39).TextString = Text38.Text attribs(40).TextString = Text37.Text attribs(41).TextString = Text36.Text attribs(42).TextString = Text35.Text attribs(43).TextString = Text34.Text attribs(44).TextString = Text33.Text attribs(45).TextString = Text32.Text attribs(0).Update attribs(1).Update attribs(2).Update attribs(3).Update attribs(4).Update attribs(5).Update attribs(6).Update attribs(7).Update attribs(8).Update attribs(9).Update attribs(10).Update attribs(11).Update attribs(12).Update attribs(13).Update attribs(14).Update attribs(15).Update attribs(16).Update attribs(17).Update attribs(18).Update attribs(19).Update attribs(20).Update attribs(21).Update attribs(22).Update attribs(23).Update attribs(24).Update attribs(25).Update attribs(26).Update attribs(27).Update attribs(28).Update attribs(29).Update attribs(30).Update attribs(31).Update attribs(32).Update attribs(33).Update attribs(34).Update attribs(35).Update attribs(36).Update attribs(37).Update attribs(38).Update attribs(39).Update attribs(40).Update attribs(41).Update attribs(42).Update attribs(43).Update attribs(44).Update attribs(45).Update End If Next If Not objNEWSS Is Nothing Then objNEWSS.Delete Form1.Show End Sub ArielSerrano 2010-07-13 08:42:53 http://www.zwsoft.com/forum/viewthread.php?tid=1609&pid=13216 <DIV id=gt-res-> <DIV style="DISPLAY: block" id=autotrans><SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="102">Hello</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="103">,</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="104">Use</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="105">google</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="106">to</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="107">translate into</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="108">English.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="109">1</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="110">)</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="111">What version</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="112">of</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="113">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="114">are you?</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="115">2</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="116">)</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="117">I</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="118">noticed</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="119">that the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="120">upgrade</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="121">of</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="122">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="123">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="124">2010</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="125">and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="126">2011</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="127">for</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="128">the management</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="129">attributes</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="130">in</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="131">VBA</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="132">there is</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="133">no difference</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="134">.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="135">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="136">between</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="137">January</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="138">2010 and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="139">this latter</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="140">there</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="141">are</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="142">differences</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="143">.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="144">3)</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="145">Between</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="146">January 2010</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="147">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="148">autocad</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="149">and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="150">apart from</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="151">the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="152">difference</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="153">of the object</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="154">and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="155">the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="156">object</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="157">Acad</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="158">ZWCAD</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="159">,</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="160">I do not</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="161">change</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="162">anything</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="163">.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="164">I also</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="165">had</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="166">to change</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="167">the function</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="168">because</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="169">the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="170">management</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="171">is different</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="172">from</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="173">the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="174">attributes</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="175">and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="176">upgrade/2011</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="177">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="178">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="179">January 2010</SPAN> <SPAN ="hps atn" title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="180">(</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="181">if</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="182">I remember correctly)</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="183">.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="184">Definitely</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="185">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="186">ZWCAD</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="187">2011</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="188">and</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="189">January 2010</SPAN><SPAN title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="190">.</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="191">Watch</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="192">the</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="193">help</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="194">of</SPAN> <SPAN =hps title="Fai clic per visualizzare le traduzioni alternative" closure_uid_j5xrc="195">the developers.</SPAN> zw_admin 2011-01-12 06:30:30