Visualbasic代码编辑器没有这个功能，但可以用第三方的编辑软件Emedit来实现这个功能。
创新互联建站长期为数千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为瑞金企业提供专业的成都网站设计、网站制作、外贸营销网站建设，瑞金网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。
1、用Emedit打开*.frm文件。
2、点工具，当前配置属性，然后勾选显示行号即可。
假如一个表有好多个taget:
我们要拿Southern CN和KDC之间的Target的行数
思路：我们先拿Southern CN的行数，然后拿KDC的行数
dt.Rows.
IndexOf(dt.Rows.Cast(Of System.Data.DataRow).
Where(Function(r) r(3).ToString.StartsWith("Target") And dt.Rows.IndexOf(r) iSCN And dt.Rows.IndexOf(r) iKDCRow).First()) + 1
你是想获取总行数？还是选中行和列的索引？
获取总行数：dataGridView1.Rows.Count;
获取当前选中行索引：int
i
=
this.dataGridView1.CurrentRow.Index;
获取当前选中列索引：int
j
=
this.dataGridView1.CurrentCell.ColumnIndex;
如果文本很大，那用for、do就太慢太慢了，我给大家一个快速查询的方法：
Dim Oc,Fs,S,X
Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打开TXT文件
S = Fs.ReadAll'获取全文
Fs.Close'关闭文件
X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '统计总行数:用字符串替换法得到一共多少个回车，然后再加一就得到总行数了
可以把某个列为空就当做是空行，你连接字符串是hdr=no，也就是第一行不作为列标题，那么就是用的默认的列标题，F1，F2.。。这些。
比如，第一列的某行为空的话就当做是空行，你可以加这个条件 where len([F1]) 0
求行：
RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1
这个代码呢，我的理解呢，是获取在selstart的地方的行数。一般来讲selstart的地方都是光标的地方，然后会给你返回line。不过返回的时候要自己加1。不是很懂这个语法，有懂得可以教我一下
以上是求行数。
求列：
For i = 0 To RichTextBox1.SelStart
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For
j = j + 1
Next i
这个for循环呢，讲的是检查这一行光标前有多少个列，然后用J输出列的个数。
因为VB6.0没有RichTextBox1.GetFirstCharIndexOfCurrentLine这种语法。所以就得自己模拟这个过程。
具体怎么检查的呢，首先将 i 从0循环到光标处，
如果 【光标字符数】处的行数 减去 【光标字符数减去 i 个字符数】处的行数小于0了，我写了个不为零。但此时写小于零就可以。那么代表着换行了，同时也代表着光标到上一行之间有多少字。用j存储循环次数，得出对应列数。（我们中文习惯是叫第一列，但程序实际上是第零列，但在循环的时候就注意到并解决这个问题了）
如果你替换写法，例如
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For
j = j + 1
Next i
这个 J 就对应着光标到该行结尾有几个字符了，如果有需要可以使用，但一般不需要。
那么就像上面说的那样，行列都求出来了，最后用事件和TEXT或者caption表现出来就好了
至于说总行数
RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1
通过对最后一个字符的位置（总长度）的行来判断呗，不过也得加一。
