'el frm centrado "CenterScreen" y al cargar q esté

en el load:
'creo k habria q ponerlo en el load aparte de en el timer pq sino, aunq esté centrado al empezar el timer, c agrandaria a la drcha y hacia abajo.

Form1.Width = Screen.Width
Form1.Height = Screen.Height

en un timer:
Form1.Width = Screen.Width
Form1.Height = Screen.Height

    Form1.Width = Screen.Width
    Form1.Height = Screen.Height

Private Sub Command1_Click()
On Error Resume Next
CommonDialog1.DialogTitle = "Guardar imagen" ' titulo
CommonDialog1.Filter = "Extensiones de Imágenes(*.jpg)|*.jpg|" ' las q c kieran
CommonDialog1.ShowSave
SavePicture Image1.Picture, CommonDialog1.FileName ' guardar
'con un picture seria = pero cambiando image1 x picture1
End Sub

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400

Dim DirArchivo As String

Private Sub Form_Load()
DirArchivo = "C:\texto.txt"
Comprobar (DirArchivo) ' comprobamos q exista ese archivo
End Sub

Public Sub Comprobar(Directorio As String)
On Error Resume Next ' en caso d error continúa
Open Directorio For Input As #1

If Err Then ' error x tanto no existe
MsgBox "El archivo no existe"
Else
MsgBox "El archivo existe"
End If
Close #1

End Sub