Attribute VB_Name = "FetchSelection"
Public Function FetchSel()
    With MainScr
        If .rtfText.SelBold = True Then
            .BoldBar.Buttons(1).Value = tbrPressed
            .FormatAttrBold.Checked = True
        Else
            .BoldBar.Buttons(1).Value = tbrUnpressed
            .FormatAttrBold.Checked = False
        End If
        If .rtfText.SelItalic = True Then
            .BoldBar.Buttons(2).Value = tbrPressed
            .FormatAttrItalic.Checked = True
        Else
            .BoldBar.Buttons(2).Value = tbrUnpressed
            .FormatAttrItalic.Checked = False
        End If
        If .rtfText.SelUnderline = True Then
            .BoldBar.Buttons(3).Value = tbrPressed
            .FormatAttrUnderline.Checked = True
        Else
            .BoldBar.Buttons(3).Value = tbrUnpressed
            .FormatAttrUnderline.Checked = False
        End If
        If .rtfText.SelStrikeThru = True Then
            .BoldBar.Buttons(4).Value = tbrPressed
            .FormatAttrStrike.Checked = True
        Else
            .BoldBar.Buttons(4).Value = tbrUnpressed
            .FormatAttrStrike.Checked = False
        End If
        If .rtfText.SelAlignment = rtfLeft Then
            .LeftBar.Buttons(4).Value = tbrPressed
                .FormatAlignLeft.Checked = True
                .FormatAlignCenter.Checked = False
                .FormatAlignRight.Checked = False
        End If
        If .rtfText.SelAlignment = rtfCenter Then
            .LeftBar.Buttons(5).Value = tbrPressed
                .FormatAlignLeft.Checked = False
                .FormatAlignCenter.Checked = True
                .FormatAlignRight.Checked = False
        End If
        If .rtfText.SelAlignment = rtfRight Then
            .LeftBar.Buttons(6).Value = tbrPressed
                .FormatAlignLeft.Checked = False
                .FormatAlignCenter.Checked = False
                .FormatAlignRight.Checked = True
        End If
        .cboSize.Text = .rtfText.SelFontSize
        .cboFont.Text = .rtfText.SelFontName
        If .rtfText.SelCharOffset > 0 Then
            .BoldBar.Buttons(10).Value = tbrPressed
            .BoldBar.Buttons(9).Value = tbrUnpressed
        ElseIf .rtfText.SelCharOffset < 0 Then
            .BoldBar.Buttons(9).Value = tbrPressed
            .BoldBar.Buttons(10).Value = tbrUnpressed
        Else
            .BoldBar.Buttons(10).Value = tbrUnpressed
            .BoldBar.Buttons(9).Value = tbrUnpressed
        End If
            .BoldBar.Refresh
            .LeftBar.Refresh
    End With
End Function