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