Private Declare Function IsUserAnAdmin Lib "shell32" () As Long
Private Declare Function ShellExecute Lib "shell32" _
    Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long


Sub Main()
    On Error Resume Next
    Dim result As Long
    Dim hex As SiaCoreUI_HexView.clsCmnDlg2
    Set hex = New clsCmnDlg2
    If hex Is Nothing Then
        If IsUserAnAdmin = 0 And Command$ <> "admin" Then
            ShellExecute App.hInstance, "runas", App.EXEName, "admin", CurDir$(), vbNormalFocus
            Exit Sub
        End If
    End If
    On Error GoTo 0
    frmMain.Show
End Sub