vbAccelerator - Contents of code file: mMain.bas

This file is part of the download VB6 New Desktop Sample, which is described in the article Creating New Desktops and Running Applications.

Attribute VB_Name = "mMain"
Option Explicit

Private Const DESKTOP_NAME As String = "vbAccelerator"

Public Sub Main()

   Dim cNewDesktop As New cDesktop
   Dim sPath As String
   sPath = App.Path & "\SampleKioskApp\KioskApp6.exe"
   
   cNewDesktop.Create DESKTOP_NAME
   cNewDesktop.StartProcess sPath
      
End Sub