Advertisement
Guest User

Untitled

a guest
Jun 19th, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.97 KB | None | 0 0
  1. Public Class Form1
  2. Function GetHWID()
  3. Dim HARDWAREID As String = System.Security.Principal.WindowsIdentity.GetCurrent.User.Value
  4. Return HARDWAREID
  5. End Function
  6.  
  7. Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
  8.  
  9. End Sub
  10.  
  11. Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
  12.  
  13. End Sub
  14.  
  15. Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
  16.  
  17. End Sub
  18.  
  19. Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
  20.  
  21. End Sub
  22.  
  23. Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
  24.  
  25. End Sub
  26.  
  27. Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
  28.  
  29. End Sub
  30.  
  31. Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
  32.  
  33. End Sub
  34.  
  35. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement