If Dir("C:\Tuarchivo.jpg") <> "" Then
        MsgBox "El archivo existe."
    Else
        MsgBox "El archivo no existe."
    End If

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_CLOSE = &HF060&


Call SendMessage("VENTANA", WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)

Dim Ventana as Form
Set Ventana = New Form2
Ventana.Show

Set Fromito = New Form1
Fromito.Show

Private Sub Command2_Click()
Shell Text1.Text
End Sub

Private Sub cmbBotonComun_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdOculto.SetFocus
End Sub

form1.PrintForm