Private _session As WebSession
Private prefs As New WebPreferences()

 Private Sub EDJava_cmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDJava_cmd.Click
        If prefs.Javascript = True Then
            prefs.Javascript = False
            label_java.Text = "Javascript Disabled"
        Else
            prefs.Javascript = True
            label_java.Text = "Javascript Enabled"
        End If
        _session = WebCore.CreateWebSession(prefs)
        WebControl1.WebSession = _session
        WebCore.Update()
        WebCore.AutoUpdatePeriod = 1
    End Sub