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 Withkiitos paljon....Toimii loistavasti :P...
Aihe on jo aika vanha, joten et voi enää vastata siihen.