sorun çözülmüştür
dogrusu 
 Randomize()
        Label4.Text = sayıüret
        Label4.Text = Int(Rnd() *10)