Attribute VB_Name = "modCommon"
Option Explicit
'Public Report As CRAXDRT.Report
Public pclsUser As Object

Public Declare Function ShellExecute _
                            Lib "shell32.dll" _
                            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
                            

Public DOHhfhudcode As String


Public Sub SelectText___(ByRef rtxtCommon As TextBox)
    With rtxtCommon
        .SelStart = 0
        .SelLength = Len(rtxtCommon.Text)
    End With
End Sub

Public Sub AppendErrorMessage____(ByRef pstrCurrentMessage As String, _
                                  ByVal pstrNextMessage As String)
    
    If Trim(pstrCurrentMessage) = vbNullString Then
        pstrCurrentMessage = pstrNextMessage
    Else
        pstrCurrentMessage = pstrCurrentMessage & vbCrLf & pstrNextMessage
    End If
        
End Sub

Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer

    Dim ValidateList As String
    Dim KeyOut As Integer
    
    If Editable = True Then
        ValidateList = UCase(ValidateString) & Chr(8)
    Else
        ValidateList = UCase(ValidateString)
    End If
    
    If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
        KeyOut = KeyIn
    Else
        KeyOut = 0
        Beep
    End If
    
    ValiText = KeyOut
End Function