各位大神，如何把这个立方体的三个面染上三种颜色？

刚才忘了传图片了，谢谢！

Line (930, 65)-(980, 65), vbBlue '''''''横
Line (980, 115)-(980, 65), vbBlue ''''''竖
Line (930, 65)-(915, 85), vbBlue '''''''斜1
Line (980, 115)-(965, 135), vbBlue ''''''斜2
Line (980, 65)-(965, 85), vbBlue ''''''斜3
Line (915, 85)-(965, 135), vbBlue, B '''''''
这个是画正方体的代码

新式绘图软件上色都有边缘检测功能
不规则图像 取一内部点坐标 ，上下左右像素逐一上色，检测到边缘线颜色推出横线循环
例子
Private Sub Command6_Click()
Line (330, 65)-(330, 265), vbBlack '''''''纵线 边缘线
MsgBox Hex(Point(330, 65))
Dim x, y
'Line (230, 85)-(430, 85), vbRed
'尝试画一条横穿线
For y = 85 To 85
For x = 230 To 430
'边缘检测 遇到黑色 横线退出
If Hex(Point(x, y)) = 0 Then
Exit For
Else
PSet (x, y), vbGreen
End If
Next
Next
End Sub

Private Sub Command7_Click()
Form1.ScaleMode = 3
End Sub
要像素模式