Private Sub frm_welcomeCenter_LocationChanged(sender As Object, e As _
    EventArgs) Handles Me.LocationChanged
        mod_globalForms.changePopupLocation(Me)
    End Sub

  Public Sub frm_form_LocationChanged(sender As Object, e As EventArgs) Handles _
    ANY FORM.LocationChanged
        mod_globalForms.changePopupLocation(Me)
    End Sub

Public Class Form1
    Private MyFormsKlasse As FormsKlasse
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyFormsKlasse = New FormsKlasse(Me)
    End Sub
 
End Class
 
Public Class Form2
    Private MyFormsKlasse As FormsKlasse
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MyFormsKlasse = New FormsKlasse(Me)
    End Sub
 
End Class
 
Friend Class FormsKlasse
    Private WithEvents MyForm As Form
 
    Friend Sub New(f As Form)
        MyForm = f
    End Sub
 
    Private Sub MyForm_Click(sender As Object, e As EventArgs) Handles _
      MyForm.Click
        MsgBox("click")
    End Sub
 
    Private Sub MyForm_Closing(sender As Object, e As CancelEventArgs) Handles _
      MyForm.Closing
        MsgBox("Closing")
    End Sub
 
    Private Sub MyForm_KeyPress(sender As Object, e As KeyPressEventArgs) _
      Handles MyForm.KeyPress
        MsgBox("keyPress")
    End Sub
End Class

functionName(MyForm,Tooltip1)

MyForm.Controls.Find("ToolTip1", True)

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