如何在画图板中插入文字？
要求在当前坐标插入

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print "添加文字"
End Sub