Sure I can add that. I'm not going to update the control yet just for that so if you want to add it yourself, all you need to do is go to the InitControl sub, and add an Else condition to the If Ambient.UserMode Then block:
Code:Else Dim sSys As String Dim l As Long sSys = String$(MAX_PATH, 0) l = GetWindowsDirectoryW(StrPtr(sSys), MAX_PATH) If l Then sSys = Left$(sSys, IIf(l < 3, l, 3)) Else sSys = Left$(Environ("WINDIR"), 3) End If Dim nIcon As Long nIcon = GetIconIndex(sSys, SHGFI_SMALLICON) CBX_InsertItem(hMain, Me.Name & " Version " & App.Major & "." & App.Minor, nIcon) SendMessage hMain, CB_SETCURSEL, 0, ByVal 0




Reply With Quote
