Usa un bucle for:
Código [Seleccionar]
For n = 0 To n = 100
SavePicture Picture1, "c:\a" & n & ".bmp"
next n
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúFor n = 0 To n = 100
SavePicture Picture1, "c:\a" & n & ".bmp"
next n
Private Sub Command1_Click()
'Sustituimos a por la cadena
Text1.Text = Replace(Text1.Text, "a", "#&&$")
End Sub
Private Sub Command2_Click()
'La operacion inversa desciframos la cadena
Text1.Text = Replace(Text1.Text, "#&&$", "a")
End Sub