VB.NET CORELDRAW i ustawienei koloru

[MK]

Witam

Prosze o pomoc bo nie wiem jak sie zabrac. Mam pomysl ale stanalem na etapie
z
miany kolorow obietow w dokumencie.
Nie chce tego robic przez vb for application
tylko przez vb.net poprzez COM.
Podpowiedzcie jak zmienic kolor obiektu bo nie wiem.
Wyrzuca mi blad. Nie wiem dlaczego.
kod ponizej.

dziala do momentu zmiany koloru

Dim nowy As New CorelDRAW.Application
nowy = Microsoft.VisualBasic.CreateObject("CorelDraw.Application.11")
nowy.InitializeVBA()
Dim doc As CorelDRAW.Document
doc = nowy.Application.CreateDocument()
doc.Activate()
'STRONY
Dim strona1 As CorelDRAW.Page
strona1 = nowy.Application.ActivePage
strona1.Name = "nazwa strony 1"
Dim layer1 As CorelDRAW.Layer
layer1 = nowy.Application.ActiveLayer
layer1.Name = "nazwa warstwy 1"

'Tworze prostokat - jest oki
Dim c2 As Shape
strona1 = nowy.Application.ActivePage
layer2 = nowy.ActiveLayer
nowy.ActiveDocument.ReferencePoint = cdrReferencePoint.cdrTopLeft
c2 = nowy.ActiveLayer.CreateRectangle(0, 0, 10, 100, 50, 50, 50, 50)
' A teraz chcem zmienic mu kolor obwiedni i LIPA
c2.Outline.Color.CMYKAssign(10, 10, 10, 10) 'TU SIE WYSYPUJE -
DLACZEGO

' dalej dziala oki - zapisuje
doc.SaveAs("c:\test23.cdr")
doc.Close()
doc = Nothing
nowy = Nothing

Pozdrawiam
Marcin Kopczewski

[MK]

Kto cos doradzi?

Użytkownik "MK" <m...@opegiek.com.pl> napisał w wiadomości
news:dhrfkd$lj8$1...@atlantis.news.tpi.pl...

[Rafał S.]

> c2.Outline.Color.CMYKAssign(10, 10, 10, 10) 'TU SIE WYSYPUJE -

Wywal te nawiasy :)
Powinno być:

c2.Outline.Color.CMYKAssign 10, 10, 10, 10

Pozdrawiam,

Rafał S.

[MK]

niestety to nie to jest przyczyna:)
w vb for application to dziala
ale w vb.net z podlaczala biblioteka corela niestety nie

mam komunikat w stylu interfejs niezarejestrowany

ktos cos doradzi?

pozdrawiam
Marcin K

Użytkownik "Rafał S." <syste...@wp.pl> napisał w wiadomości
news:di58qr$m6a$1...@nemesis.news.tpi.pl...