Private Pct1 As Long
 
Private Sub Command1_Click() 
    Picture1.Picture = LoadPicture("C:GameXXox.jpg")
    Pct1 = Picture1.Picture 
End Sub 
 
 
Private Sub Command2_Click() 
   If Picture1.Picture = Pct1 Then 
       Picture1.Enabled = False 
       Picture2.Picture = LoadPicture("C:GameXXoo.jpg")
   End If 
End Sub