Mensajes

[DESCARGAR CÓDIGO COMPLETO]

Hola Lordzito, como estas ?

Mira, la verdad es que no entendi mucho tu codigo, ademas es muy largo  .
Por lo que me dispuse a hacer lo que estas tratando de hacer, esto es lo que me salio, espero que te sirva.

En el formulario:
    Label = lblVersion
    CommandButton = Command1

Código (vb) [Seleccionar] Expandir

Option Explicit
'Funcion API URLDownloadToFile
Private Declare Function URLDownloadToFile _
   Lib "urlmon" _
   Alias "URLDownloadToFileA" ( _
       ByVal pCaller As Long, _
       ByVal szURL As String, _
       ByVal szFileName As String, _
       ByVal dwReserved As Long, _
       ByVal lpfnCB As Long) As Long
       
'Variable donde colocaremos la version
Dim Version As String

Private Sub Command1_Click()
   Call Descargar("http://lordsoft.webcindario.com/version.txt")
End Sub

Sub Descargar(Url As String)

   'LLamamos a la APi de Win, y le pasamos los parametros, Url y la ruta de descarga ("C:/....")
   Call URLDownloadToFile(0, Url, "c:\Version.txt", 0, 0)
         
   'Una ves descargado lo abrimos de forma Binaria
   Open "c:\Version.txt" For Binary As 1#
        Version = Space(LOF(1))
        Get #1, , Version 'Cargamos la versión en la variable
   Close #1
   
   'No hace Falta Explicar
   lblVersion.Caption = Version
   
   'Eliminamos el achivo
   Kill ("c:\Version.txt")
End Sub

DESCARGAR CÓDIGO COMPLETO

Se me ocurre (Si usas visual basic 6, no se si este es el caso), meter ese formulario dentro de un Formulario MDI de forma que tu Form sea el form hijo, cuando se agrande automáticamente van a aparecen las scroll bar.

Para hacerlo debes agregar al proyecto un Form MDI y en la propiedad "MDI Child" de tu formulario (el que estas usando actualmente) debe quedar en TRUE.

Aprueba, luego me cuentas.
Saludos

Hola Firewall como estas espero que bien, bueno respecto a tu pregunta aquí te dejo el código que se necesita para copiar en este caso un TextBox a el portapapeles.

Insertar Un Command1, Y Un Text1



*********************************************************

Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub

Private Sub Form_Load()
Text1.Text = "Esto es lo que se va a copiar"
Command1.Caption = "Copiar"
End Sub


*********************************************************

Jajajaja Si me abrá Pasado. 
Pero.... Esta bueno preguntar.