绘图代码

1、画圆，根据圆心和半径得到包含圆的矩形。

Private Sub DrawCircle(ByVal pt As Point, ByVal Radius As Integer, ByVal pen As Pen, ByVal brush As Brush)
          ' This method uses the Graphics object provided
        ' in the call to the Draw method.
        Dim Diameter As Integer = Radius * 2  '直径
        pt.Offset(-Radius, -Radius) '将圆心移到左上角
        '定义出包围整个圆的矩形
        Dim rct As New Rectangle(pt.X, pt.Y, Diameter, Diameter)
        '绘出圆
        grfx.DrawEllipse(pen, rct)
        If Not brush Is Nothing Then
            '填充背景
            grfx.FillEllipse(brush, rct)
        End If
    End Sub

2、form.Invalidate();//重画窗体，调用窗体的paint事件代码。可传参数，指定刷新区域，以提升性能。

3、如果想要每秒刷新一次界面，可设置Timer控件的时间间隔为100毫秒。因为Timer控件的Tick事件对操作系统来说是个低优先级的事件。如果设为1s，诺有同时运行的其他应用程序占用大量的cpu时间，Timer控件的Tick事件就不一定每秒触发一次了。