求将下面代码转为VB.NET代码，感谢！

//水平滚动条滚动事件

((HScrollBar)YingYangGrid.Controls[0]).ValueChanged+=newEventHandle(YuanLiaoYiYgForm_ValueChanged);



//响应函数

void YuanLiaoYiYgForm_ValueChanged(object sender, EventArgs e)

{

//如果textbox获得焦点，则让它不可见，这样同时会促发LostFocus事件，引发数据更新

if (_cellEditBase.Focused)

{

_cellEditBase.Visible = false;

}

}



[解决办法]
http://www.developerfusion.com/tools/convert/vb-to-csharp/
这个是C#与VB相互转换的网址，以后多用
[解决办法]
c# 偶不属性，但最近做个项目，经常参考c#的代码，有点心得了。但不敢肯定是对的。
凭我的印象，二楼的代码貌似不对？呵呵，说错不要见怪，我只懂vb。net

第一句应该是添加事件处理把？可以用 AddHandler 连接起来吧
AddHandler YingYangGrid.Controls[0]).ValueChanged,YuanLiaoYiYgForm_ValueChanged

‘这一段明显是事件处理过程吧？
Sub YuanLiaoYiYgForm_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)

End Sub
这一段比较简单，只是一个判断语句，如果celleditbase有焦点，则隐藏？
If _cellEditBase.Focused Then
_cellEditBase.Visible = False
End If

VB.NET code

 AddHandler  YingYangGrid.Controls[0]).ValueChanged,YuanLiaoYiYgForm_ValueChanged    Sub YuanLiaoYiYgForm_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)           End Sub     If _cellEditBase.Focused Then          _cellEditBase.Visible = False     End If
[解决办法]
嗯。搞错了，判断语句应该放在函数里面
  AddHandler  YingYangGrid.Controls[0]).ValueChanged,YuanLiaoYiYgForm_ValueChanged
   Sub YuanLiaoYiYgForm_ValueChanged(ByVal sender As Object, ByVal e As EventArgs)
           If _cellEditBase.Focused Then
           _cellEditBase.Visible = False
       End If
   End Sub


[解决办法]
看看这个http://www.developerfusion.com/tools/convert/vb-to-csharp/

[解决办法]
addhandler  .... addressof ....
[解决办法]
  
  
 AddHandler ctype( YingYangGrid.Controls[0],HScrollBar).ValueChanged, AddressOf YuanLiaoYiYgForm_ValueChanged
  

'响应函数

 Private Sub YuanLiaoYiYgForm_ValueChanged( sender as   object sender, e as EventArgs )

'如果textbox获得焦点，则让它不可见，这样同时会促发LostFocus事件，引发数据更新

 if  _cellEditBase.Focused  then _cellEditBase.Visible = false

end sub