, , . ... , , - .
:
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
If Val(TextBox1.Text) > 100 Then
ToolTip1.Active = True
ToolTip1.Show("Value is to Large", sender, New Drawing.Point(0, sender.Height - 50))
Else
ToolTip1.Active = False
End If
End Sub
... !