Quote Originally Posted by XRsTX
Yeah i'm aware that of it, they will be able to customize to how big they want it, and etc..., It's still not working though, the history picture is still the same.
Ya that is strange, I can't seem to see why picImage doesn't change to the selected history, but if I do this then it works!

Code:
Private Sub MakeHistoryPoint(ByVal HistoryReason As String)
    Set History(CurrentHistoryNumber) = picImage.Image
    lstHistory.AddItem HistoryReason
    lstHistory.Selected(CurrentHistoryNumber) = True
    CurrentHistoryNumber = CurrentHistoryNumber + 1
End Sub
Code:
Private Sub lstHistory_Click()
   Set History(255) = picImage.Image ' just tp preserve current image
   Set picImage.Picture = History(lstHistory.ListIndex)
   Set picSnapshot.Picture = History(lstHistory.ListIndex)
   Set picImage.Picture = History(255) ' restore preserved image
End Sub