Public Sub ConnectAsync(request As AuthRequest, Optional overwriteProfile As Boolean = False, Optional onConnectComplete As Action(Of Boolean) = Nothing)
 
'Este es el procedimiento de una clase que lo llamo desde
 
AccessPoint.ConnectAsync(resquest, False, OnConnectComplete)
 
'Cree este Sub, pero me da error sin declararlo Optional y setearle el True me decia que no se habia declarado un valor para isConnected
'cuando lo dejo asi (forzado) me dice que ConnectAsync no devuelve nada y realmente me dejo pasmao con ese mensaje
 
   Sub OnConnectComplete(Optional isConnected As Boolean = True)
 
        If isConnected = True Then
            txtLog.AppendText("Conexión completada." & vbCrLf)
        End If
 
    End Sub