Private Sub UIToolControl1_MouseDown(ByVal button As Long, ByVal shift As Long, ByVal x As Long, ByVal y As Long)

arcmap.drawPolygon arcmap.getPolygon(x, y)
arcmap.drawText x, y, "Hello World"
arcmap.drawSymbol x, y
arcmap.drawPolyline arcmap.getPolyline(x, y)

End Sub