Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = "안녕하세요"
End Sub
Private Sub Label1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label1.MouseHover, MyBase.MouseHover
Label1.Text = "마우스 움직이지 마세요?"
End Sub
End Class