Problem mit Polygon

  • VB6

    Problem mit Polygon

    Hallo,

    ich habe folgendes Problem mit der API - Funktion Polygon, das ich einfach nicht in den Griff kriege :
    ich möchte gerne auf meiner DirectDraw Surface ein Polygon mit bestimmter Füllfarbe zeichnen, allerdings kommt jedesmal ein weiss ausgefülltes Polygon heraus, egal was ich für eine Füllfarbe auf der Surface setze.
    Falls irgendwer weiß, wie ich das ändern kann, wäre ich ihm sehr verbunden.

    hier is noch der Code (poly ist von Typ pointapi,backbuffer ist meine surface) :

    poly(1).x = 100
    poly(1).y = 100
    poly(2).x = 300
    poly(2).y = 100
    poly(3).x = 100
    poly(3).y = 200
    BackBuffer.SetFillColor vbRed
    dc = BackBuffer.GetDC
    Polygon dc, poly(1), 3
    BackBuffer.ReleaseDC dc

    mfg,
    Sebastian