vb的MSFlexGrid控件如何实现用鼠标来选择某一行

我用vb的MSFlexGrid控件作了一个显示数据的程序，可是执行后不能用鼠标选择某一行，只能用上下按钮选择，请高手指点一下，谢谢

可以先判断选中那一个行，然后通过行对象改变该行的颜色。

行啊： dim cn as new adodb.connection dim rs as new adodb.recordset public function adodbjet(optional dbfile as string, _ optional pwd as string) as adodb.connection on error resume next dim defdb as string '数据库文件请自行设置 defdb = app.path & "\bond.mdb" if dbfile = "" then dbfile = defdb set adodbjet = new adodb.connection adodbjet.open "provider=microsoft.jet.oledb.4.0;" & _ "persist security info=false;user id=admin; " & _ "jet oledb:database password=" & pwd & "; data source=" & dbfile if adodbjet.state <> 1 then set adodbjet = nothing end function private sub form_load() set cn = adodbjet if cn.state = 1 then rs.open "select * from member2", cn, 1, 2 set vg1.datasource = rs end if with vg1 .editable = flexedkbdmouse '可用键盘和鼠标编辑 .allowuserresizing = flexresizebothuniform '可用鼠标调整单元大小, 如果值为“flexresizeboth”则单独调整行高或列宽 .scrolltrack = true '行随滚动条翻滚 .wordwrap = true '单元中的文本过长换行显示 .additem "" '添加一行为了新增内容 end with end sub