Public Class Form1
    Dim w As Int32 = 25
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.SetBounds(10, 10, w * 10, w * 14)
        PictureBox1.BackColor = Color.Black
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Dim col As Int32 = 28 + (e.X \ w) + (e.Y \ w) * 10
        Me.Text = Color.FromKnownColor(col).Name
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim b As New SolidBrush(Color.Black)
        For j As Int32 = 0 To 13
            For i As Int32 = 0 To 9
                b.Color = Color.FromKnownColor(28 + i + j * 10)
                e.Graphics.FillRectangle(b, (i * w) + 1, (j * w) + 1, w - 2, w _
                  - 2)
            Next
        Next
    End Sub
End Class