سؤال

	Private Sub Command1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Command1.MouseEnter

		Call ShowToolTip(sender,"Send Tip")

	End Sub

	Private Sub ShowToolTip(ByVal CmdName As Object,mTip as string)
		lblToolTip.Visible = True
		lblToolTip.Top = CmdName.Top
		lblToolTip.Left = CmdName.Left
		lblToolTip.Text = mTip
	End Sub

	Private Sub Command1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Command1.MouseLeave
		lblToolTip.Visible = False
	End Sub

ToolTip1.SetToolTip(Command1, "r")

ألف شكر