在图片框用点,直线,圆画图形,并且在里面标注上文字,和汉字,怎么做?

先用直线画菱形（同时用print方法输出字符）
然后用画圆弧方法画两个半圆和一个四分之一圆
再擦除（用底色画）菱形上部两线段
用右斜线填充上部空间
最后用直线恢复菱形上部

画点用PSet（这个图应该用不到）
画线用Line
画圆和圆弧用Circle
标注文字用Print（需要先通过CurrentX和CurrentY设置文字位置）

那样的化
文字和图形是在那个控件里面
窗体还是图片框

谢谢老师们的帮助

怎么在线段的端点位置标注文字ABCD

比如端点的坐标是(x0,y0)
先由端点位置计算出文字中心位置：文字在上方就让y0减去一个数，在下方就让y0加上一个数，在左方就让x0减去一个数，在右方就让x0加上一个数；计算出来的坐标记为(x1,y1)
然后用x1减去Picture1.TextWidth("文字")/2，y1减去Picture1.TextHeight("文字")/2，得到文字左上角的位置（记为(x2,y2)）
再将x2和y2分别赋值给Picture1.CurrentX和Picture1.CurrentY，完成文字定位
最后用Picture1.Print将文字显示出来

在窗体form1显示字体,并定义大小
在线段终端显示字符"a"
FontSize =8 '定义字体大小
Line (500,500)-(5500, 1800)
Print"a" '在(5500, 1800)显示a
在圆心显示字符"o"
FontSize =8 '定义字体大小
Circle (1500, 1500),1900
Me.Print"o" '在(1500, 1500)显示o
在坐标 (2000, 2000) 处显示字符
FontSize =16 '定义字体大小
PSet(2000, 2000), QBColor(7): '画点 白色 不显点 ok
Me.Print"白点 PSet (2000, 2000)"'在(2000, 2000)显示"点 PSet (2000,2000)"
FontSize =8 '定义字体大小