写DoubleClick 事件和click事件,然后
Private Sub xxx_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles xxx.DoubleClick
Me.xxx_MouseDown(sender, e)
End Sub
Private Sub xxx_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles xxx.Click
Me.xxx_MouseDown(sender, e)
End Sub