Quando você cria um formulário no Visual Basic , você decide em cima de um tamanho ideal e construir a forma de acordo. A menos que você restringir os usuários de redimensionar o formulário , você deve explicar o que acontece com ele , se um usuário re- dimensiona a tela ou como seu formulário é exibido para usuários com diferentes resoluções de tela do que o seu próprio. Você pode escrever um sub que re- dimensiona o formulário e seus controles e chamar o sub sempre que você precisar . Instruções 
 1 
 Abra a janela de código do seu projeto. Declare um novo Private Sub e criar duas variáveis para manter os valores de X e Y para o re -size: 
 
 Sub ResizeForm Privado ( Formulário ByVal ) 
 
 Dim XSize As Integer 
 
 Dim ysize as Integer 
 2 
 Digite as seguintes linhas , a primeira , para evitar um acidente de programa para os controles que não podem ser re- size e segundo para evitar o re-size ocorra se a forma já está minimizada ou maximizada : 
 
 On Error Resume Next 
 
 Se Form.WindowState < > 0 Then Exit Sub 
 3 
 Digite o seguinte linhas para definir a origem da forma re -sized ( no canto superior esquerdo do formulário ) para o canto superior esquerdo da tela, e para ampliar o próprio formulário : 
 
 Me.Top = 0 < br > 
 Me.Left = 0 
 
 Me.Height = Me.Height * ysize 
 
 Me.Width = Me.Width * XSize 
 4 
 Digite as seguintes linhas para percorrer os controles presentes na forma de re- tamanho -los e acabar com o sub . Isso irá redimensionar as larguras e alturas de vários controles , enquanto mantém seus alinhamentos intacta : 
 
 For i = 0 To Me.Controls.Count - 1 
 
 Me.Controls (i) . = left Me.Controls (i) . Esquerda * XSize 
 
 Me.Controls (i) . top = Me.Controls ( i) . Principais * ysize 
 
 Me.Controls (I). Altura = Me.Controls (i). Altura * ysize 
 
 Me.Controls (I). Largura = Me.Controls (I). Largura * XSize 
 
 Next i 
 
 End Sub