PlS ReAd
Source code:
[PHP]Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007Color Scheme.Black
ButtonX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
End Sub
Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click
WebBrowser1.GoBack()
End Sub
Private Sub ButtonX6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX6.Click
WebBrowser1.GoForward()
End Sub
Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click
WebBrowser1.Navigate(TextBoxX1.Text)
End Sub
Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
WebBrowser1.Stop()
End Sub
Private Sub ButtonX7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX7.Click
WebBrowser1.Refresh()
End Sub
Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
WebBrowser1.Navigate("Http://www.google.com")
End Sub
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
WebBrowser1.Navigate("http://www.youtube.com")
End Sub
Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX9.Click
WebBrowser1.Navigate("http://www.facebook.com")
End Sub
Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click
WebBrowser1.Navigate("http://www.mpgh.net")
End Sub
End Class
[/PHP]
i always get error when i want to debug;

please, help?/
[PHP]Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007Color Scheme.Black
ButtonX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2007
End Sub
Private Sub ButtonX3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX3.Click
WebBrowser1.GoBack()
End Sub
Private Sub ButtonX6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX6.Click
WebBrowser1.GoForward()
End Sub
Private Sub ButtonX5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX5.Click
WebBrowser1.Navigate(TextBoxX1.Text)
End Sub
Private Sub ButtonX4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX4.Click
WebBrowser1.Stop()
End Sub
Private Sub ButtonX7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX7.Click
WebBrowser1.Refresh()
End Sub
Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
WebBrowser1.Navigate("Http://www.google.com")
End Sub
Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
WebBrowser1.Navigate("http://www.youtube.com")
End Sub
Private Sub ButtonX9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX9.Click
WebBrowser1.Navigate("http://www.facebook.com")
End Sub
Private Sub ButtonX8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX8.Click
WebBrowser1.Navigate("http://www.mpgh.net")
End Sub
End Class
[/PHP]
i always get error when i want to debug;

please, help?/





