Private Sub cmdSalir_Click()
    Unload Me
    frmMain.Show
End Sub
