01.Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs)
02. Dim buttonCentre As Point = New Point(button1.Width / 2, button1.Height / 2)
03. Dim p As Point = button1.PointToScreen(buttonCentre)
04. Cursor.Position = p
05. button1.PerformClick()
06.End Sub
07.
08.Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
09. MessageBox.Show("Hello")
10.End Sub
Quote:
