[Resolvido]Tamanho de um textobox

Bom dia !

Caros colegas, preciso determina o tamanho de um textobox conforme os código abaixo.

Código:

On Error Resume Next
   ' PlaySound fLocalBd & "\div\sons\click.wav", 1, 1
Me.troca = Me.troca + 1
If Me.troca > 2 Then Me.troca = 0
Select Case Me.troca
    Case 0
        Me.Pesquisa.caption = "Código:"
        Me.txtPesquisar.Width = 2,2 cm '
    Case 1
        Me.Pesquisa.caption = "Prefixo Aeronave:"
         Me.txtPesquisar.Width = 4,2 cm '
    Case 2
        Me.Pesquisa.caption = "Modelo/Fabricante:"
         Me.txtPesquisar.Width = 7,2 cm '
    Case Else
        MsgBox " Campo para pesquisa não localizado!!!", vbInformation, "Aviso"
End Select
Me!txtPesquisar.SetFocus
End Sub

Tente dessa forma ai, mais não deu certo eu executo o sistema mais não muda nada.


grato!

Olá.... as medidas devem ser em Twips e não em Cms.
1cm equivale a 566.929133858 Twips ou 567 Twips

Eis o link de conversão para você...
http://www.unitconversion.org/typography/centimeters-to-twips-conversion.html

No VBA o Access utiliza a unidade de comprimento TWIPS.
Portanto se quiser 2 cm de largura coloque
MeuCampo.width = 1134

Bons estudos !