Mensajes

le podes colocar un simple timer, y que cada un intervalo determinado envie el archivo.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Timer2.Interval = 100
End Sub

Private Sub Timer2_Timer()
Command2_Click
End Sub

en el codigo se observa q cada 1 decima de segundo se enviara el archivo

espero q te sirva. saludos...

lo q podes hacer es centrarlo manualmente con las opciones top y left del MDIChild

mira este código: el formulario MDI se llama frmMDI y el MDIChild, frmMDIChild

Código (vb) [Seleccionar] Expandir

Dim ancho As Integer
Dim alto As Integer
Dim dist1 As Single
Dim dist2 As Single

Private Sub Form_Load()
ancho = frmMDI.Width - frmMDIChild.Width
alto = frmMDI.Height - frmMDIChild.Height
dist1 = ancho / 2
dist2 = alto / 2
frmMDIChild.Left = dist1
frmMDIChild.Top = dist2
End Sub

lo solucionas poniendo luego del msgbox, q la variable suma tome nuevamente el valor de 0

Código (vb) [Seleccionar] Expandir

Dim i As Long

For i = 0 To 3
    If i > 0 Then
        Dim j As Long
        Dim suma As Long
        For j = 0 To i
            suma = suma + j
        Next j
    End If
    MsgBox "La suma desde (0) hasta (" & i & ") es: " & suma
    suma = 0
Next i