buttonların adını hepsini ayni yap vb6 otomatik index aticaktir örneğin;
button(0)
button(1)
.
.
..
button(6) ya kadar yap

sonra form load kısmına sunları yaz

Alıntı
for i = 0 to 6 step 1
if i <= 6 Then
Call button(i).performclick
else
on error resume next
next