For i = 1 To ListView1.ColumnHeaders.Count
       If (x - ListView1.ColumnHeaders(i).Left >= 0) And (x - ListView1.ColumnHeaders(i + 1).Left < 0) Then
           Text5.Text = ListView1.SelectedItem.SubItems(i - 1)
           Text5.Height= ListView1.SelectedItem.Height
           Text5.Width = ListView1.ColumnHeaders(i).Width
           Text5.Top = ListView1.SelectedItem.Top + ListView1.Top
           Text5.Left = ListView1.ColumnHeaders(i).Left + ListView1.Left
           Exit For
        End If
    Next iText5.Height= ListView1.SelectedItem.Height 语句无法实现,在listview和textbox字体相同的情况下,Text5.Height无法缩小到ListView1.SelectedItem.Height,但是如果通过改小textbox的字体又显得字体实在太小,看不清了各位大虾有什么解决方法吗?另外我的textbox左上角的定位有一点偏差,差的不多,总是在listview,subitem(i)的左上一点点,这个是为什么呢?