Option Explicit On
 
 
Public Class Form1
 
 
    Dim WithEvents oWinHTTP As WinHttp.WinHttpRequest
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        oWinHTTP = New WinHttp.WinHttpRequest
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim regreso As String
 
        lblEstado.Text = "Cargando..."
 
        oWinHTTP.Open("GET", txtURL.Text)
        oWinHTTP.Send()
 
        regreso = oWinHTTP.ResponseText
 
        txtTexto1.Text = regreso
 
    End Sub
 
    Private Sub oWinHTTP_OnResponseFinished()
        lblEstado.Text = "Finalizado"
 
    End Sub
 
 
End Class

Excepción del tipo 'System.ArgumentException' en Microsoft.VisualBasic.dll
Excepción del tipo 'System.ArgumentException' en WindowsApplication1.exe
Excepción del tipo 'System.Runtime.InteropServices.COMException' en WindowsApplication1.exe

Private Sub button1_click()
   Private Sub oWinHTTP_OnResponseFinished
   .....
   End Sub
End Sub

while (($divisor < $m[$a][$b]) and $primo) {
if ( $m[$a][$b]%$divisor == 0){
	$primo=False;
	$divisor=$divisor+1;
	}
}
$primo1=true;
$divisor=2;
while (($divisor < $n[$a][$b]) and $primo1) {
if ($n[$a][$b]%$divior == 0) {		
	$primo1=true;
	$divisor=divisor+1;	
	}
}

$primos = true;
$divisor = 2;
while( ($divisor <$m[$a][$b]) && ( $divisor < $n[$a][$b]) ){
   if( ( $m[$a][$b] % $divisor  == 0 )&& ( $n[$a][$b] %$divisor == 0 ) ){
    $primos = false;
   }
}
if ($primos){
   echo $m[$a][$b] + $n[$a][$b];
}