Bom colega baseado no que você falou criei o seguinte código veja:
em um form inclua 2 listbox 3 commandbutton e 1 textbox
agora cole o código abaixo
Private Sub Command1_Click()
If List2.ListCount = 4 Then
Exit Sub
Else
For v = 0 To List2.ListCount - 1
If List1.Text = List2.List(v) Then
Exit Sub
End If
Next v
List2.AddItem List1.Text
If List2.List(0) = "" Then
List2.RemoveItem (0)
End If
End If
End Sub
Private Sub Command2_Click()
If List2.Text <> "" Then
List2.RemoveItem (List2.ListIndex)
End If
End Sub
Private Sub Command3_Click()
Dim Mascara As String
For f = 0 To List2.ListCount - 1
Mascara = Mascara & "," & List2.List(f)
Text1.Text = Right(Mascara, Len(Mascara) - 1)
Next f
End Sub
Private Sub Form_Load()
Layout
List1.AddItem "Nome"
List1.AddItem "Idade"
List1.AddItem "Ano de nascimento"
List1.AddItem "Sexo"
End Sub
Sub Layout()
With List1
.Height = 1620
.Width = 1935
.Left = 120
.Top = 720
End With
With List2
.Height = 1620
.Width = 1935
.Left = 2640
.Top = 720
End With
With Command1
.Height = 375
.Width = 375
.Left = 2160
.Top = 960
.Caption = ">"
End With
With Command2
.Height = 375
.Width = 375
.Left = 2160
.Top = 1560
.Caption = "X"
End With
With Command3
.Height = 495
.Width = 1215
.Left = 1800
.Top = 2520
.Caption = "Gerar String"
End With
With Text1
.Height = 285
.Width = 4455
.Left = 120
.Top = 3120
End With
With Me
.Height = 4230
.Width = 4800
.Caption = "Configurar mascara"
End With
End Sub
a sub Layout só criei pra você saber exetamente a minha idéia.
veja se agora ajuda
