Private Declare Function Pie Lib "gdi32" (ByVal hdc As _
    Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As _
    Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As _
    Long, ByVal X4 As Long, ByVal Y4 As Long) As Long

Private Sub Form_Load()
    AutoRedraw = True
    ScaleMode = vbPixels

    DrawWidth = 3
    ForeColor = vbRed
    FillColor = vbBlue
    FillStyle = vbDiagonalCross
    Pie hdc, 10, 10, ScaleWidth, ScaleHeight, _
        50, 0, 100, 100
End Sub