Eikös VB6:ssa ollut valmis komento minka avulla pystyi tekemään esim uuden Command nappulan lähdekoodin kautta?
https://www.ohjelmointiputka.net/koodivinkit/
Tuosta voi olla apua, kunhan pikkasen soveltaa koodia.
Mutta toinen tapa on:
Luo formille valmiiksi command1 jonka index-arvon muutat nollaksi. Tämän jälkeen kirjoita seuraavanlainen koodi:
Load Command1(Command1.UBound + 1) With Command1(Command1.UBound) .Left = Command1(Command1.UBound - 1).Left + 96 .Top = 0 .Visible = True .Caption = Command1.UBound & " RÄRÄRÄ!!1" .ZOrder 0 End With
kiitos paljon....Toimii loistavasti :P...
Aihe on jo aika vanha, joten et voi enää vastata siihen.