vb6如何使用printer打印出一个填充黑色的直角梯形

vb6如何使用printer打印出一个填充黑色的直角梯形,
因为我想用PDF虚拟打印机直接生成PDF,所以不能使用图片控件,
如果用图片控件就会生成图片,不能生成形状。
(注意这里是打印出来,不是在VB6窗口上打印)
必须是填充,不可以用多条line来铺成。
这个代码是怎样写,查了一天书本了,硬是不会,书本上只教怎样在VB6窗口上填充,

不知道你这个问题是否已经解决, 如果还没有解决的话:

如果你已经解决了该问题, 非常希望你能够分享一下解决方案, 写成博客, 将相关链接放在评论区, 以帮助更多的人 ^-^