Public Class Form1
    Dim MIN As Integer = 0
    Dim MAX As Integer = 99
 
    Dim x As Integer <--------- Cambialo por Dim x as integer = 0
 
 
   Private Function TextBox(ByVal TextBoxCount As Short) As Object
        Throw New NotImplementedException <--ERROR-Message=No se puede implementar el método o la operación.
    End Function
   'A ver la parte de la funcion esta todo mal, todo xD
   'Una funcion devuelve un valor, osea tiene un return
   'Esta funcion no tiene un return y para colmo dentro pones un throw que va en el catch de un try, el compilador se debe de haber asustado y todo por intentar tal cosa.
   'Borra la funcion por que no sirve de nada eso.
 
End Class

Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
SETACL_Info.Arguments = String.Format("-on ""{0}"" -ot reg -ace ""n:{1};p:{2}"" -rec ""{3}"" -actn ace -silent -ignoreerr -log ""{4}""", RegKey, user, Permission, Recursion, SETACL_Logfile)

Public Function GetLnkInfo(lnkPath As String, ByVal i As Integer) As String
        Dim shl = New Shell32.Shell()
        lnkPath = System.IO.Path.GetFullPath(lnkPath)
        Dim dir = shl.[NameSpace](System.IO.Path.GetDirectoryName(lnkPath))
        Dim itm = dir.Items().Item(System.IO.Path.GetFileName(lnkPath))
        Dim lnk = DirectCast(itm.GetLink, Shell32.ShellLinkObject)
 
        If i = 0 Then
            'Si es 0 devolvemos la ruta
            Return lnk.Target.Path
        ElseIf i = 1 Then
            'Si es 1 devolvemos el directorio de inicio
            Return lnk.WorkingDirectory
        ElseIf i = 2 Then
            'Si es 2 devolvemos la descripcion
            Return lnk.Description
        Else
            Return Nothing
        End If
    End Function

<?
function get_tweets($url) {
 
    $json_string = file_get_contents('http://urls.api.twitter.com/1/urls/count.json?url=' . $url);
    $json = json_decode($json_string, true);
 
    return intval( $json['count'] );
}
 
function get_likes($url) {
 
    $json_string = file_get_contents('http://graph.facebook.com/?ids=' . $url);
    $json = json_decode($json_string, true);
 
    return intval( $json[$url]['shares'] );
}
 
function get_plusones($url) {
 
    $curl = curl_init();
    curl_setopt($curl, CURLOPT_URL, "https://clients6.google.com/rpc");
    curl_setopt($curl, CURLOPT_POST, 1);
    curl_setopt($curl, CURLOPT_POSTFIELDS, '[{"method":"pos.plusones.get","id":"p","params":{"nolog":true,"id":"' . $url . '","source":"widget","userId":"@viewer","groupId":"@self"},"jsonrpc":"2.0","key":"p","apiVersion":"v1"}]');
    curl_setopt($curl, CURLOPT_RETURNTRANSFER, true);
    curl_setopt($curl, CURLOPT_HTTPHEADER, array('Content-type: application/json'));
    $curl_results = curl_exec ($curl);
    curl_close ($curl);
 
    $json = json_decode($curl_results, true);
 
    return intval( $json[0]['result']['metadata']['globalCounts']['count'] );
}
function get_shares($url) {     
  $json_string = file_get_contents("http://www.linkedin.com/countserv/count/share?url=$url&format=json");
  $json = json_decode($json_string, true);
  return intval( $json['count'] );
}
?>