Sayısal loto programı

Kısa kodlarla yazılmış iyi bir sayısal loto programı
Yeni bir form açıp bir command button ve altı adet text box ekledikten sonra aşağıdaki kodları kopyalayıp kod kısmına yapıştırın.

Private Sub Command1_Click()
Randomize Timer
text1.Caption = Int(Rnd * 49) + 1
text2.Caption = Int(Rnd * 49) + 1
text3.Caption = Int(Rnd * 49) + 1
text4.Caption = Int(Rnd * 49) + 1
text5.Caption = Int(Rnd * 49) + 1
text6.Caption = Int(Rnd * 49) + 1
End Sub

Private Sub Text1_Change()
If text1.Caption = text2.Caption Or text1.Caption = text3.Caption Or text1.Caption = text4.Caption Or text1.Caption = text5.Caption Or text1.Caption = text6.Caption Then
text1.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text2_Change()
If text2.Caption = text1.Caption Or text2.Caption = text3.Caption Or text2.Caption = text4.Caption Or text2.Caption = text5.Caption Or text2.Caption = text6.Caption Then
text2.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text3_Change()
If text3.Caption = text1.Caption Or text3.Caption = text2.Caption Or text3.Caption = text4.Caption Or text3.Caption = text5.Caption Or text3.Caption = text6.Caption Then
text3.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text4_Change()
If text4.Caption = text1.Caption Or text4.Caption = text2.Caption Or text4.Caption = text3.Caption Or text4.Caption = text5.Caption Or text4.Caption = text6.Caption Then
text4.Caption = Int(Rnd * 49) + 1
End If
End Sub

Private Sub Text5_Change()
If text5.Caption = text1.Caption Or text5.Caption = text2.Caption Or text5.Caption = text3.Caption Or text5.Caption = text4.Caption Or text5.Caption = text6.Caption Then
text5.Caption = Int(Rnd * 49) + 1
End If
End Sub
Private Sub Text6_Change()
If text6.Caption = text1.Caption Or text6.Caption = text2.Caption Or text6.Caption = text3.Caption Or text6.Caption = text4.Caption Or text6.Caption = text5.Caption Then
text6.Caption = Int(Rnd * 49) + 1
End If
End Sub