Todo lo que tienes que hacer es cada X numeros poner un salto de linea, un contador con un if y cuando se cumpla la condicion contador a 0 y salto de linea...
Como es eso? Perdon mi ignorancia
...
Este es el codigo...
--------------------------------------------------------------------------------------
Dim a As Integer, b As Integer, suma As Integer, multi As Integer
Dim s As Integer, numero As Integer, marca As Integer
Dim ciclo As Integer, res As Integer
Private Sub cmdCalcular_Click()
a = txt1
b = txt2
suma = a + b
s = suma
multi = a * b
pic1.Cls
While suma < multi
For ciclo = 2 To suma - 1
numero = suma
res = numero Mod ciclo
If res = 0 Then marca = 1
Next ciclo
If marca = 0 Then pic1.Print numero; ", ";
suma = suma + 1
marca = 0
Wend
pic2.Cls
pic2.Print "Los numeros primos entre "; s; " y "; multi; "son:";
End Sub
-------------------------------------------------------------------------------------
Autor