参考答案

Private Sub Form_Click()
    L1.AddItem Str$(Form1.HS1)
End Sub