LnLevel = prvGetLevel
If (InStr(1, Command(), "/silent", vbTextCompare) = 0) Then
' If SetAutoStart(LnLevel) Then
' MsgBox "TransTaskBar will be loaded when OS starts.", vbOKOnly Or vbInFORMation
' End If
Else
End If
LhWnd = FindWindow("Shell_TrayWnd", vbNullString)
If (LhWnd <> 0) Then
prvMakeTransparent LhWnd, LnLevel
End If
End Sub

Public Function SetAutoStart(nLevel As Byte) As Boolean
Dim nRet As Long
Dim hKey As Long
Dim nResult As Long
Dim LsFullPath As String