Private Sub cmdWLANAus_Click()
    WebBrowser1.Document.All.enable_ap(1).Click
 
    With WebBrowser1.Document.Forms("tF")
 
        .submit
    End With
 
 
    Do While Not bLoaded
        DoEvents
    Loop
End Sub

    <td nowrap>Modus:</td>
      <td nowrap><select name="wire_mode" size="1" onchange="chgMode();">
	  <option value="gb">g und b</option>
	  <option value="130">Bis zu 65 MBit/s</option>
 
		<option value="270">Bis zu 150 MBit/s</option>  </select></td>
	 </tr>
 
    <tr>
      <!-- RULE -->
      <td colspan="2" background="liteblue.gif" height="12">  </td>
    </tr>
 
    <TR>
      <td nowrap colspan="2"><a href="javascript:loadhelp(" & _
        "'_wire','broadcast')" tabindex="-1"><B>Wireless Access Point</B></a></TD>
	</tr>
 <tr>
	 <td colspan="2"><input type="checkbox" name="enable_ap" _
  value="enable_ap"> WLAN-Access Point aktivieren </td>
</tr>
	<tr>
 
      <TD nowrap colspan="2">
        <input type="checkbox" name="ssid_bc" value="ssid_bc"> _
          SSID-Broadcast aktivieren </TD>
    </tr>
      <tr>
      <TD nowrap colspan="2">
        <input type="checkbox" name="wire_iso" value="wire_iso"> Wireless _
          Isolation </TD>
    </tr>
 
     <tr>
      <!-- RULE -->
      <td colspan="2" background="liteblue.gif" height="12">  </td>
    </tr>
    <TR>
      <td nowrap><a href="javascript:loadhelp('_wire','access')" _
        tabindex="-1"><B>Zugriffsliste der WLAN-Geräte</B></a></TD>
      <TD align="left">
 
        <input type="button" name="access" value="Zugriffsliste anpassen" _
          onClick="self.location.href='setup.cgi?todo=nbtscan&next_file=m_acce" & _
          "s.htm'">
      </TD>
    </tr>
 
	  <!-- RULE -->
	<tr>
      <td colspan="2" background="liteblue.gif" height="12"> </td>
    </tr>