Как избежать изменения ListStyle на Listbox вызывает сбой Listbox

Question

Я понимаю, что я сформулировал название странно, но это ясно. При изменении listlist listtyle от fmListStylePlain до fmListStyleOption происходит сужение списка. Я попытался установить высоту списка, но это вызывает затруднительное представление. Есть ли способ предотвратить это?

Ниже приведено изображение сбоя

-

Private Sub ExtraEmails_Change()
    If ExtraEmails.Value Then
        ExtraRecipients.ListStyle = fmListStyleOption
        ExtraRecipients.Height = 110.25
    Else
        ExtraRecipients.ListStyle = fmListStylePlain
        ExtraRecipients.Height = 110.25
    End If
End Sub