Galera gostaria de saber como diminuir tamanho de um executável, nas teorias que já vi, tem que pegar o cf dele, por exemplo, se tiver 10 numeros 1, ai você coloca no codigo 1 = 10, ai vai diminuir o tamanho. eu estou abrindo o executável assim

Dim rox() As Byte
a = FreeFile
Open "c:Cliente.exe" For Binary Access Read As #a
massa = LOF(a)
ReDim rox(1 To massa)
Get #a, , rox()
Close #a

só que o código que tá pegando não tem nada de número, só vem lixos, não está vindo os 0 e 1, gostaria de saber como fazer isso, muito obrigadio t+