Advertisement
NAK

AddHandler Hide Labels.

NAK
Jun 22nd, 2013
61
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 0.48 KB | None | 0 0
  1. Public Class Form1
  2.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  3.         Dim ctl As Control
  4.         For Each ctl In Me.Controls
  5.             If TypeOf ctl Is Label Then
  6.                 AddHandler ctl.MouseEnter, AddressOf Label_MouseEnter
  7.             End If
  8.         Next ctl
  9.     End Sub
  10.  
  11.     Private Sub Label_MouseEnter(sender As Object, e As EventArgs)
  12.         DirectCast(sender, System.Windows.Forms.Label).Visible = False
  13.     End Sub
  14. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement