e "Btn" & frmMain.TB2.Buttons.count + 1 & "Sel", txCur.Text, "Buttons"
    Me.Hide
    frmMain.LoadToolBar
    Unload Me
    End Sub
    
    Private Sub Form_Load()
    SetFont Me
    Dim i As Integer, s As String
    For i = 1 To imlTB2.ListImages.count
    imIMages.ComboItems.Add , imlTB2.ListImages(i).Key, imlTB2.ListImages(i).Key, i
    'String(2 - Len(CStr(i)), "0") & i
    Next i
    If frmMain.TB2.Buttons.count <= 19 Then Exit Sub
    For i = 20 To frmMain.TB2.Buttons.count
    s = ReadValue("Btn" & i, "", "Buttons")
    If s = "" Then GoTo n
    lvBtn.ListItems.Add , , s, , ReadValue("Btn" & i & "Img", 0, "Buttons")
    n: 'next item
    Next i
    End Sub
    
    Private Sub imIMages_GotFocus()
    frmMain.SB.Panels(1).Text = "Select the icon to display on the button."
    End Sub
    
    Private Sub SSTab1_Click(PreviousTab As Integer)
    O