para desplegar múltiplos de 4 entre 60 y 20 acompañados de su

PUBLIC SUB Button1_Click()DIM A AS Integer
A = 60
DO WHILE A >= 20
ListBox1.Add(A)
A = a - 1
LOOP
END
PUBLIC SUB Button4_Click()DIM B AS Integer
B = 60
DO WHILE B >= 20
ListBox2.Add((Log)(B))
B = B - 1
LOOP
END