Private Sub cmdRemove_Click()
If lstAddData.ListCount > 0 Then
   If MsgBox("要移除這個圖檔嗎?", 36, "系統訊息") = vbYes Then
      Call RemovePictureData
   End If
End If
End Sub

Private Sub RemovePictureData()
'Check Remove List Item,If Select = False then Exit Sub
'Else Check The Select Item,If Select Then Remove Item and Reset then ProFile Data
'When Remove Over,ReSort then ProFile Data,Check Picture SUM
'Set Control Enabled eq False,Call LoadProFile Default,Set File Update Value
 
If lstAddData.ListIndex < 0 Then
   MsgBox "請指定要移除的資料項", 48, "系統錯誤"
   Exit Sub
End If

'移除、整理ProFile的資料
'略

If PictureSUM <> 0 Then
   lstAddData.ListIndex = 0
   picName$ = lstAddData.Text
   Call Picture_PreView
Else
   picName$ = ""
   prePicName$ = ""
   imgPreView.Picture = LoadPicture()
   imgPreView.Move imgBackGround.Left + 2, imgBackGround.Top + 2
   imgPreView.Width = imgBackGround.Width - 4
   imgPreView.Height = imgBackGround.Height - 4
End If

Call SetControlEnabled(False)
SetControlFlag = False
Call StopMusic
Call LoadProFileSet("Default")
ProFileUpdate = False
LoadFileUpdate = True
End Sub

接下來使用者要做的就是設定他的ProFile的資料了，在平常的時候，我是將所有與設定相關的控制項Disable 的，因為在控制項的資料變動的時候我都作了一些設定什麼的，為了方便管理使用者的使用狀況，所以在沒有點 選要修改的資料項的時候，我把控制項Disable，比較容易掌握狀態。至於會不會有使用者覺得不好用， 這就很難講了，這就得自己拿捏了。
這個部份我寫成了一段副程式SetControlEnabled來作，內容很簡單，就是依傳入的參數Enable或Disable 該控制項而已，程式中我設定了一個變數SetControlFlag來儲存目前控制項的狀態，後面會用到，不過你可以把它 一起寫到SetControlEnabled裡，我當初沒有注意到，把它寫在外面了，後來還因此忘記設定發生一些錯誤， 自己多注意一下。

接下來我們來看一下lstAddData_MouseDown這個程序，這裡作的處理就是看使用者點選了資料項， 要設定ProFile的處理。

Private Sub lstAddData_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)

'Check ProFile Update,If Update And Selct Item Change then Ask User Cancel ,If No then Exit
'Else,Load PorFile Data ,Set Control Object Value
'If Button is Right then Show PopUpMoenu

If (Button And 1) And lstAddData.ListCount > 0 Then
   
   If lstAddData.Selected(lstAddData.ListIndex) = True Then
      If lstAddData.ListIndex = SetProFileNo - 1 Then Exit Sub
      If ProFileUpdate = True Then
         If MsgBox("你目前所做的設定並沒有儲存，要放棄嗎？", vbYesNo Or vbQuestion, "系統訊息") = vbNo Then
            lstAddData.Selected(lstAddData.ListIndex) = False
            lstAddData.ListIndex = SetProFileNo - 1
            lstAddData.Selected(SetProFileNo - 1) = True
            Exit Sub
         End If
      End If
   
      picName$ = lstAddData.Text

      Call Picture_PreView
      Call StopMusic
   

      If SetControlFlag = False Then Call SetControlEnabled(True)
      SetControlFlag = True
      SetProFileNo = lstAddData.ListIndex + 1
      
      If CheckProFileData() = NoProFileData Then
         Call LoadProFileSet("Default")
      Else
         Call LoadProFileSet("ProFile")
      End If
      ProFileUpdate = False
   Else
      If SetControlFlag = True Then Call SetControlEnabled(False)
      SetControlFlag = False
   End If
   
ElseIf Button And 2 Then
   '略
End If

End Sub

Private Function CheckProFileData() As Integer
'Check ProFile Data
If ProFile(SetProFileNo).DelayTime <> 0 Then
   CheckProFileData = FindProFileData
Else
   CheckProFileData = NoProFileData
End If

End Function


Private Sub LoadProFileSet(LoadType As String)
Dim i As Integer
'Load ProFile Data and Check Type,Set the Control Object's Value
'If LoadFileUpdate eq False then Save The Status
'When Load Over,Restore the Value to LoadFileUpdate

If LoadFileUpdate = False Then i% = 1

Select Case LoadType
Case "Default"
     '略

Case "ProFile"
     '略
End Select

If i% = 1 Then LoadFileUpdate = False
End Sub

Ver1.0 Update:
在使用了一陣子Screen Saver Maker後，我突然發覺一件事，設定雖然好用，但是每一個都要設定的話... 那可要花上不少的時間耶！有些圖，Default的設定方式並不合，所以還是要去做變動，前前後後，常常花了 我不少時間，因此，我再新增一個功能，套用設定值，以其中一個圖片設定為基準，讓使用者一次將設定值 套用到所有的圖片上，那我們就可以省下不少設定的時間了！ 程式是以目前設定的這一個圖檔為套用的標準，因此如果使用者變更過圖檔設定的話，我們就必需請它 儲存過設定值後，才可以進行套用設定值的動作，我們再把套用設定的視窗叫出來，程式如下

Private Sub cmdSetToAll_Click()
If ProFileUpdate = True Then
   MsgBox "要將設定值套用到所有的設定圖檔，請先將目前的設定值儲存", vbOKOnly Or vbInformation, Me.Caption
   Exit Sub
End If

frmSetToAll.Show 1
End Sub

Private Sub cmdOK_Click()
'Check check box checked.if checked,then set Profile(SetProfileNo).xxxx to all Profile

Dim i As Integer

If chkDelayTime.Value = vbChecked Then
   '略
If chkMidi.Value = vbChecked Then
   '略
If chkWave.Value = vbChecked Then
   '略
If chkFullPicture.Value = vbChecked Then
   '略
If chkEffect.Value = vbChecked Then
   '略
LoadFileUpdate = True
Unload Me
End Sub