随机生成不同的图形

在窗体上画一个commandbutton按钮，双击按钮编写程序语言，其语言如下：

Private Sub Command1_Click()
  Show
  Me.Scale (0, 0)-(18, 8)
  Me.AutoRedraw = True
  Me.DrawMode = 2
  Circle (3, 4), 3, vbRed
  Me.AutoRedraw = False
  Line (7, 1)-Step(4, 6), vbGreen, B
  Line (13, 7)-Step(4, 0), vbBlue
  Line Step(0, 0)-Step(-2, -6), vbBlue
  Line Step(0, 0)-Step(-2, 6), vbBlue
End Sub

最后点击运行，出现不同的随机图形，程序成功。

  此程序未能应用timer控件，无法实现在不定时间内生成随机图形。