Private Sub Command3_Click() Form1.Width = 3000 * (2 * Rnd() + 1) Form1.Height = 3000 * (2 * Rnd() + 1)
pct.Width = 1000 * (2 * Rnd() + 1) pct.Height = 1000 * (2 * Rnd() + 1) End Sub