いろいろと試してたら、できました･･･

Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long, ByVal wFillType As Long) As Long
Private Function Paint(X As Long, Y As Long)

     Dim T
    T = Screen.TwipsPerPixelX

    ExtFloodFill Me.hdc, X / T, Y / T, vbBlack, 0
    Me.Refresh

End Function

Private Sub Form_Load()
 
       Form1.AutoRedraw = True
    
    Form1.FillStyle = 0
    
    Line (4000, 1000)-(5000, 3000)
    Line -(3000, 3000)
    Line -(4000, 1000)

End Sub

Private Sub Command1_Click()
 
  
     Me.FillColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)
    Paint 4000, 1500
    
    
End Sub


上みたいな感じです。Xやらを使わずに、RGBの中に直接VScrooll.Valueを入れたらできました。