Private Sub Command6_Click()
Dim x As Double
Dim y As Double
 Frm_main_plant.SuperMap1.Layers.SetEditableLayer (1)
 Frm_main_plant.SuperMap1.Action = scaEditCreatePoint
 MouseDown_click
 x = Val(txtX.Text)
 y = Val(txtY.Text)
End Sub
请问怎么定义MouseDown，谢谢

谢谢，各位指教，我是想在SUPERMAP图层上定点，现在不出现错误了，但是还定不上去，请指教