Public Class Form$1$ Private Sub Button$1\_$Click$()$ Dim I, k as Integer For i $=1$ To $8$ step $3$ K$=$K$+$i Next i ListBox$1.$AddItem$($K$)$ End SubEnd Class