Public Sub Form_Open()
  ToolButton1.Picture = Brush().Picture
End
Private Function Brush() As Image
  Dim im As Image
  Dim i, j As Integer
  im = New Image(32, 32, &BFBFBF, Image.Standard)
  im.PaintRect(im.W / 2, 0, im.W / 2, im.H / 2, &H5F5F5F)
  im.PaintRect(0, im.W / 2, im.W / 2, im.H / 2, &H5F5F5F)
  Return im
End