Private Sub ultraTree1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)

    Dim tree As UltraTree = DirectCast(sender, UltraTree)

    Dim p As New Point(e.X, e.Y)

    Dim element As UIElement = tree.UIElement.ElementFromPoint(p)

    If element IsNot Nothing Then

        Dim cell As UltraTreeNodeCell = TryCast(element.GetContext(GetType(UltraTreeNodeCell)), UltraTreeNodeCell)

        If cell IsNot Nothing Then

            Dim column As UltraTreeNodeColumn = cell.Column

        End If

    End If

End Sub

Please refer to the following site for conversion from C# to VB.NET

Hi Jerry,

Something like this:

        private void ultraTree1_MouseMove(object sender, MouseEventArgs e)
        {
            UltraTree tree = (UltraTree)sender;
            Point p = new Point(e.X, e.Y);
            UIElement element = tree.UIElement.ElementFromPoint(p);
            if (element != null)
            {
                UltraTreeNodeCell cell = element.GetContext(typeof(UltraTreeNodeCell)) as UltraTreeNodeCell;
                if (cell != null)
                {
                    UltraTreeNodeColumn column = cell.Column;
                }
            }
        }