Sim lateralmente

 

Pro Form tudo bem mas o textbox não possui o resize

hummm... tenta fazer o q o colega katapoka disse mas no evento mouseup do form mas com algumas modificações... mas recomendo, se vc quiser né, fazer um flag para q isso seja permitido. Tenta assim:

 

Dim flag_mouse As Boolean

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
flag_mouse = Not flag_mouse: Label1.Caption = flag_mouse

End Sub

 

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If flag_mouse Then TextBox1.Width = X
End Sub

 

qdo vc der 2 cliques vai ativar/desativar para vc poder redimensionar o texbox... coloque uma label pra vc ver o status como fiz acima:

 

 

Provavelmente vc vai ter q fazer modificações mas um dos caminhos pode ser este

 

at+ :)

Acho que não me expliquei direito.

No windows explorer, ao passarmos o mouse entre a listas de pastas a esquerda e o conteúdo destas a direita, o mouse fica no formato de um seta dupla vertica, e, se eu clicar e arrasta eu posso redimensionar a lista de pastas, ajustando automaticamente o tamanho da janela de arquivos (direita). Eu quero saber como eu faço isso.

 

T+

Rinaldo

Cara, até entendi sim a pergunta agora q vc se explicou melhor, mas é o seguinte, o código q eu te passei era referente ao resize do Form e não do text, por isso passei essa..

agora q te entendi melhor tenho uma coisa pra te falar... isso eu não sei não!