求助，VB画圆时，如何在圆里添加文字

Question

我现在需要画一下网络节点，用圆表示，要在圆里显示节点的号码？
不知道如何实现？各位大虾帮帮忙。

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    DrawCircle Me, 2000, 600, 300, "123456"
End SubFunction DrawCircle(frm As Object, PX As Long, PY As Long, Pr As Long, txt As String)
    frm.Circle (PX, PY), Pr
    frm.CurrentX = PX - 40 * Len(txt)    '大致居中显示
    frm.CurrentY = PY - 80               '大致居中显示
    frm.Print txt
End Function