Algunas Funciones: Button

Mostrar mensaje descriptivo con toolTip

Private Sub btnquery_MouseHover(ByVal se...)Handles btnquery.MouseHover
        Me.ToolTip1.SetToolTip(Me.btnquery, "Pulsa para mostrar")
End Sub