public class Profundidad : MonoBehaviour
{
public float PosiX;
public float PosiY;
public float PosiZ;

void onGUI()
{
PosiX= 	firstP.x /texture.width*Screen.width ;
PosiY=  firstP.y/texture.height*Screen.height;
PosiZ= 0;
}
}

Class SpawnEnemies (){
public float PosiXX;
public float PosiYY;
public float PosiZZ;

Profundidad script;

void Start () {
PosiXX=script.PosiX.ToString;
PosiYY=script.PosiY.ToString;
PosiZZ=script.PosiZ.ToString;
}
}

Public Overrides Function DownloadFile() As Boolean
        Dim fileName As String = System.IO.Path.GetFileName(Me.UrlString)
        Dim descFilePath As String = System.IO.Path.Combine(Me.DestDir, fileName)
        Try
            Dim myre As WebRequest = WebRequest.Create(Me.UrlString)
        Catch ex As Exception
            Throw New Exception("File doesn't exist on server", ex.InnerException)
        End Try
        Try
            Dim fileData As Byte()
            Using client As New WebClient()
                fileData = client.DownloadData(Me.UrlString)
            End Using
            Using fs As New FileStream(descFilePath, FileMode.OpenOrCreate)
                fs.Write(fileData, 0, fileData.Length)
            End Using
            Return True
        Catch ex As Exception
            Throw New Exception("Failed to download", ex.InnerException)
        End Try
    End Function

  Dim reqFTP As FtpWebRequest
        Dim fileName As String = System.IO.Path.GetFileName(Me.UrlString)
        Dim descFilePath As String = System.IO.Path.Combine(Me.DestDir, fileName)

        Try
            reqFTP = DirectCast(FtpWebRequest.Create(Me.UrlString), FtpWebRequest)
            reqFTP.Method = WebRequestMethods.Ftp.DownloadFile
            reqFTP.UseBinary = True

            Using outputStream As New FileStream(descFilePath, FileMode.OpenOrCreate)
                Using response As FtpWebResponse = DirectCast(reqFTP.GetResponse(), FtpWebResponse)
                    Using ftpStream As Stream = response.GetResponseStream()
                        Dim bufferSize As Integer = 2048
                        Dim readCount As Integer
                        Dim buffer As Byte() = New Byte(bufferSize - 1) {}
                        readCount = ftpStream.Read(buffer, 0, bufferSize)
                        While readCount > 0
                            outputStream.Write(buffer, 0, readCount)
                            readCount = ftpStream.Read(buffer, 0, bufferSize)
                        End While
                    End Using

                End Using
            End Using
            Return True

        Catch ex As Exception
            Throw New Exception("Failed to download", ex.InnerException)
        End Try
    End Function

 AddHandler LVLOGS.ColumnCreating, AddressOf ListView1_ColumnCreating

  Private Sub ListView1_ColumnCreating(sender As Object, e As ListViewColumnCreatingEventArgs)
        If e.Column.FieldName = "SongID" OrElse e.Column.FieldName = "Image" Then
            e.Column.Visible = False
        End If
end sub