Dim SString As String
 
 
 
Private Sub Command1_Click()
 
For i = 1 To 2
 
SString = "aa"
 
Pic = Mid(SString, i, 1)
 
If Pic = a Then
Image2(i - 1).Picture = LoadPicture("D:\VisualStudio\gras.bmp")
End If
Next
 
End Sub