新建From1（窗体），新建Command1（按钮CommandButton），Label1（Label），代码：

Private Sub FillList(ListControl As ListBox, ParamArray Items())
    Dim i As Variant
    With ListControl
        .Clear
        For Each i In Items
            .AddItem i
        Next
    End With
End Sub

Private Sub Command1_Click()
    FillList List1, "码农库", "MaNongKu", "manongku.com"
End Sub