Public Class Form1
    Private MyFormsKlasse As FormsKlasse
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyFormsKlasse = New FormsKlasse(Me, Me.Button1, Me.ToolTip1)
 
    End Sub
 
End Class
Friend Class FormsKlasse
    Private WithEvents MyForm As Form
    Private MyControl As Control
    Private MyTooltip As ToolTip
    Friend Sub New(f As Form, c As Control, t As ToolTip)
        MyForm = f
        MyControl = c
        MyTooltip = t
    End Sub
 
    Private Sub MyForm_Click(sender As Object, e As EventArgs) Handles _
      MyForm.Click
        MyTooltip.SetToolTip(MyControl, "ToolTipText")
    End Sub
End Class