код
Private Sub Form_Paint()
Dim WR1, WR2, WR3 As Long
Dim T(5) As POINTAPI
Dim D(5) As POINTAPI
Dim M(3) As POINTAPI
T(0).X = 30 - 1: T(0).Y = 20
T(1).X = 50 - 1: T(1).Y = 0
T(2).X = 150: T(2).Y = 0
T(3).X = 170: T(3).Y = 20
T(4).X = 170: T(4).Y = 40
T(5).X = 30: T(5).Y = 40
M(0).X = 0: M(0).Y = 20
M(1).X = 200: M(1).Y = 20
M(2).X = 200: M(2).Y = 230
M(3).X = 0: M(3).Y = 230
D(0).X = 30: D(0).Y = 230
D(1).X = 50: D(1).Y = 210
D(2).X = 150: D(2).Y = 210
D(3).X = 170: D(3).Y = 230
D(4).X = 150: D(4).Y = 250
D(5).X = 50: D(5).Y = 250
WR1 = CreatePolygonRgn(M(0), 3, alternate)
WR2 = CreatePolygonRgn(T(0), 5, alternate)
WR3 = CreatePolygonRgn(D(0), 5, alternate)
CombineRgn WR1, WR1, WR2, RGN_OR
CombineRgn WR1, WR1, WR3, RGN_OR
SetWindowRgn Me.hwnd, WR1, True
End sub
взят он с Delphi. там все работает идеально, окошко рисуется.
в Basice ничего не рисуется. пож-та, протестируйте у себя этот код,
и скажите, в чем ошибка?

Ничего не понимаю, в Delphi окно выглядит по-другому. как у Antonariy получилось, только нижняя часть такая же как верхняя. и оно сплошное, а не в две части. мне кажется, причина в этом:
в Delphi были строки:
WR1 = CreatePolygonRgn(M, 3, ALTERNATE)
WR2 = CreatePolygonRgn(T, 5, ALTERNATE)
WR3 = CreatePolygonRgn(D, 5, ALTERNATE)

т.е. буквы M, T, D были без скобок. я сама поставила (0). по-моему в этом вся ошибка. помогите разобраться.