Private Sub Command1_Click(Index As Integer)
Command1(Index).Enabled = False
End Sub
 
Private Sub Command2_Click()
Unload Me
End Sub
 
Private Sub Form_Load()
Dim feld_bilder(0 To 19) As String
Dim i As Integer
Dim x As Integer
Dim y As Integer
 
feld_bilder(0) = "T:\3hma\###\Ainf\Memory\4000.jpg"
feld_bilder(1) = "T:\3hma\###\Ainf\Memory\4001.jpg"
feld_bilder(2) = "T:\3hma\###\Ainf\Memory\4002.jpg"
feld_bilder(3) = "T:\3hma\###\Ainf\Memory\4003.jpg"
feld_bilder(4) = "T:\3hma\###\Ainf\Memory\4004.jpg"
feld_bilder(5) = "T:\3hma\###\Ainf\Memory\4005.jpg"
feld_bilder(6) = "T:\3hma\###\Ainf\Memory\4006.jpg"
feld_bilder(7) = "T:\3hma\###\Ainf\Memory\4007.jpg"
feld_bilder(8) = "T:\3hma\###\Ainf\Memory\4008.jpg"
feld_bilder(9) = "T:\3hma\###\Ainf\Memory\4009.jpg"
feld_bilder(10) = "T:\3hma\###\Ainf\Memory\4000.jpg"
feld_bilder(11) = "T:\3hma\###\Ainf\Memory\4001.jpg"
feld_bilder(12) = "T:\3hma\###\Ainf\Memory\4002.jpg"
feld_bilder(13) = "T:\3hma\###\Ainf\Memory\4003.jpg"
feld_bilder(14) = "T:\3hma\###\Ainf\Memory\4004.jpg"
feld_bilder(15) = "T:\3hma\###\Ainf\Memory\4005.jpg"
feld_bilder(16) = "T:\3hma\###\Ainf\Memory\4006.jpg"
feld_bilder(17) = "T:\3hma\###\Ainf\Memory\4007.jpg"
feld_bilder(18) = "T:\3hma\###\Ainf\Memory\4008.jpg"
feld_bilder(19) = "T:\3hma\###\Ainf\Memory\4009.jpg"
 
For i = 0 To 19
 Command1(i).Picture = LoadPicture("T:\zeichen.gif")
Next i
 
Randomize
For x = 0 To 19
y = Int(Rnd(1) * 10)
 
Command1(y).DisabledPicture = LoadPicture(feld_bilder(x))
 
Next x
 
End Sub