Public Sub FormInscriptions (ByRef fForm as System.Windows.Forms.Form)
 
Dim myCtr as System.Windows.Forms.Controls
Dim myObj as System.Windows.Forms.Controls
Dim myToolTip as System.Windows.Forms.ToolTip
 
For Each myCtr in fForm.Controls
   For Each myObj in myCtr.Controls
      If  Val(myObj.Text) <>0 then
         myToolTip.SetToolTip(my.Obj, "Dies ist ein Test")
      Endif
   Next
Next
 
End Sub