填空题：窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum

窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。
Private Sub Form_Load（）
　For i=1 To 100
　　If i Mod 7 =0 Then
　　　　________
　　End If
　Next
End Sub
Private Sub Command1_Click（）
Sum = 0
　For i = 0 To________
　　Sum = Sum + ________
　Next
　　Text1.Text = Sum
End Sub