Prova così:
codice:Friend Shared Sub VisualizesInformationError(ByVal control As Control, _ ByVal caption As String, _ Optional ByVal title As String = Nothing) Dim ttError As New ToolTip 'Le Coordinate del ToolTip. Dim TTPosX As Integer = control.Location.X + (control.Size.Width / 2) Dim TTPosY As Integer = control.Location.Y + (control.Size.Height / 2) 'Imposta il ToolTip. With ttError .ToolTipTitle = title .IsBalloon = True .ToolTipIcon = ToolTipIcon.Error .Show(caption, control, TTPosX, TTPosY, (10 * 1000)) End With End Sub

Rispondi quotando