Private Sub Command1_Click()ClsRandomize: x = Fix(Rnd * 10): Randomize: y = Fix(Rnd * 10)For i = 0 To xFor j = 0 To yPrint "*";NextPrintNextEnd Sub