ต้องการให้คีย์ทำงาน ออโต้ โดยที่ไม่ต้องกดคีย์บอร์ดครับ

' เอาคร่าวๆนะครับ
sub Timer1_tick(xxxx)Timer1.tick
       calFun(1)
end sub

sub calFun(byval p as short)
       select case p
            case 1
                    button1.PerformClick
            case 2
                    button2.PerformClick
       end select 
end sub

' butto21 และ button2 ต้องการให้ทำอะไรก็เขียนเอานะครับ
' อันนี้แนวทางนะครับ copy ไปวางรันไม่ผ่านแน่นอนครับ แก้เอานะ