Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button3.Click
        Dim g As Graphics = Me.DataGrid1.CreateGraphics
        Dim r As New Random(Now.Second)
        Dim x As Integer = r.Next(0, 100)
        Dim y As Integer = r.Next(0, 100)
        Dim FieldSize As New FieldSize_
        FieldSize.Height = 200
        FieldSize.Width = 400
        g.FillRectangle(System.Drawing.Brushes.Green, x, y, FieldSize.Width, _
          FieldSize.Height)
        g.DrawRectangle(New Pen(Color.Black, 2), x, y, FieldSize.Width, _
        FieldSize.Height)
        g.DrawString(Date.Now.ToString, New Font("ARIAL", 30, FontStyle.Bold), _
        System.Drawing.Brushes.Red, x + 10, y + 10)
    End Sub