你好
或者你可以嘗試以下的Code
在FORM_LOAD EVENT 加入
For i as Int32 = 1 To 30
Dim lbl As Label = CType(Me.Controls("Label" & i), TextBox)
AddHandler lbl.MouseMove, AddressOf Labels_MouseMove
Next
Private Sub Labels_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim lbl As Label = sender
lbl .ForeColor
= Color.Red
End Sub
Please correct me if my concept is wrong
Chi