vbAccelerator - Contents of code file: mMain.bas

Attribute VB_Name = "mMain"
Option Explicit

Public Sub Main()
Dim tIccex As CommonControlsEx
   On Error Resume Next
   With tIccex
       .dwSize = LenB(tIccex)
       .dwICC = ICC_BAR_CLASSES
   End With
   InitCommonControlsEx tIccex
   On Error GoTo 0

Dim sCmd As String
    sCmd = Command
    frmDocHelp.CommandLine = sCmd
    frmDocHelp.Show
End Sub