Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Label1.Text = "X." & e.X & vbCrLf & "Y." & e.Y
End Sub
Private Sub button3_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim buttonCentre As Point = New Point(button1.Width / 2, button1.Height / 2)
Dim p As Point = button1.PointToScreen(buttonCentre)
Cursor.Position = p
button1.PerformClick()
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("Hello")
End Sub
The life must be learning all time and not finish. We never know that what will we met when we will have learning.
Even though, we perhaps meet good and bad person in the same time. Maybe this situation will be awaked us for continued learning by never ending.
Load balance : Server 05
Quote:
