Salve, sono nuovo del Forum e ovviamente appassionato di VB6.
Se può esserti utile ti invio il sorgente di un piccolo programma (in VB6 e non VB4) per colorare un triangolo.
Potrai certamente adattarlo alla colorazione della tua figura geometrica.
In un form inserisci una PictureBox, 2 Pulsanti e anche 3 Label per i vertici del triangolo.
=====================
Private Sub Command1_Click()
'disegna triangolo i cui vertici hanno coordinate:
'A(100,200) ; B(300,200) ; C(140,50)
Picture1.Cls
lbl_A.Visible = True: lbl_B.Visible = True: lbl_C.Visible = True
Picture1.Line (100, 200)-(300, 200), vbBlack ' lato AB
Picture1.Line (300, 200)-(140, 50), vbBlack ' lato BC
Picture1.Line (140, 50)-(100, 200), vbBlack ' lato CA
End Sub
'
Private Sub Command2_Click()
' colora triangolo
Dim x As Integer
For x = 100 To 300
Picture1.Line (140, 50)-(x, 200), vbRed
Pausa 0.01
Next x
End Sub
'
Sub Pausa(Value As Double)
Dim t As Double
t = Timer
Do
DoEvents
Loop While Value >= (Timer - t)
End Sub
=====================
Saluti.
Sal47