Kodu aşağıdaki ile değiştirin, Listbox un Font özelliğinide Courier New (Bu çok önemli) olarak ayarlayın.

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