vbAccelerator - Contents of code file: mMain.bas

Attribute VB_Name = "mMain"
Option Explicit

Private Declare Sub InitCommonControls Lib "comctl32" ()

Public Sub Main()
   InitCommonControls
   
   Dim f As New frmShortCutTest
   f.Show
   
End Sub