Advertisement
Guest User

Untitled

a guest
Nov 21st, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.78 KB | None | 0 0
  1. Public Class Form1
  2. Dim num1 As Integer
  3. Dim num2 As Integer
  4. Dim Answer1 As Integer
  5.  
  6.  
  7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
  8. num1 = textBox1.Text
  9. num2 = textBox2.Text
  10. Answer1 = num1 + num2
  11. lblAnswer1.Text = Answer1
  12.  
  13. End Sub
  14.  
  15. Private Sub Label_MouseHover(sender As Object, e As EventArgs) Handles Label1.MouseHover
  16. Label1.Text = "Enter a number in text box"
  17.  
  18. End Sub
  19. Private Sub Label1_MouseLeave(sender As Object, e As EventArgs) Handles Label1.MouseLeave
  20. Label1.Text = "Label1"
  21.  
  22. End Sub
  23.  
  24. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
  25. Label1.Text = "Enter a number in text box"
  26. End Sub
  27. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement