Arkadaslar form uzerinde 6 tane commandbutton a her tıkladığında 1 den 49 kdr farklı sayıları textbox lara yazdıran programın kodlarını yazabilcek varmı?

Private Sub Command1_Click()
Randomize Timer
Text1(1).Text = Int((49 - 1 + 1) * Rnd() + 1)
End Sub

ben birini bole yazdım ama 1. de cıkanın diğerlerinde cıkmaması icin neler eklemem gerek?
__________________