Dim control As Control = FindName(MyObject.Name.ToString)
            AddHandler control.MouseEnter, Sub()
                                               Try
                                                   Dim Tooltip As New ToolTip()
                                                   Tooltip.SetToolTip(control, control.Name.ToString)
                                               Catch

                                               End Try

                                           End Sub

If TypeName(MyObject).ToString = "Button" then
...
else if TypeName(MyObject).ToString = "Label" then
...
else if TypeName(MyObject).ToString = "RadioButton" then
...
End If

Dim Control as TypeName(MyObject).ToString = FindName(MyObject.Name.ToString)