生成随机图形

在窗体上画一个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控件，无法实现在不定时间内生成随机图形。