Private Sub Command1_Click()
Dim adi As String * 15
Dim soyadi As String * 20
adi = Text1.Text
soyadi = Text2.Text
List1.AddItem adi & "" & soyadi
End Sub
Kodu aşağıdaki ile değiştirin, Listbox un Font özelliğinide Courier New (Bu çok önemli) olarak ayarlayın.