If loopNo = 0 Then
   Call ShowMessage(CENTER_MIDDLE, 16, DefaultFontName, &HFFFFFF, "開啟圖檔發生問題！請確定檔案名稱及路徑是正確的，圖檔是否毀損")
   If ActiveType = Active_PreView Then
      Exit Sub
   Else
      waitCount = 1
      tmrActive.Interval = 1000
      tmrActive.Enabled = True
      Exit Sub
   End If
End If

Private Sub LoadSPMData(FileName As String)
Dim SPMFile$
Dim fNum%, rBuf$, i%, no%

'1.Get SPM FileName
'2.Check SPM Error(Error or Can't Find)
'3.Get SPM File Data
'4.If Error Then Set ActiveType = DefaultAction

If FileName$ = "" Then
   SPMFile$ = GetStringFromIni("START", "PROFILE", workPath & "System.SPM", workPath & "ADVSET.INI")
Else
   SPMFile$ = FileName$
End If


On Error GoTo LoadError_Handle

If Dir$(SPMFile$) <> "" And SPMFile$ <> "" Then
   'Check Head Data
   fNum% = FreeFile
   Open SPMFile For Input As #fNum%
   Line Input #fNum%, rBuf$
   If rBuf$ <> "'[Please Don't Change This File!]" Then
      ActiveType = DefaultAction
      Exit Sub
   End If
   Line Input #fNum%, rBuf$
   If rBuf$ <> "'[請勿更改此設定檔內容!否則系統可能無法正常運作!]" Then
      ActiveType = DefaultAction
      Exit Sub
   End If
   Line Input #fNum%, rBuf$
   If rBuf$ <> "'[Screen Saver Maker Profile Information]" Then
      'MsgBox "開啟設定檔發生錯誤！請檢查檔案是否正確或經過修改！"
      ActiveType = DefaultAction
      Exit Sub
   End If

   
   'Input ProFile Data
   
   no% = 0
   Do Until EOF(fNum%)
      no% = no% + 1
      '略  載入檔案的資料
   Loop
   Close #fNum%
Else
   ActiveType = DefaultAction
End If
   
ActiveNo = 1
ActiveSUM = no%

Exit Sub


LoadError_Handle:
   'MsgBox "開啟設定檔發生錯誤！請檢查檔案是否正確或經過修改！"
   ActiveType = DefaultAction
   Resume LoadErrorQuit
   
LoadErrorQuit:
   Close #fNum%
   Exit Sub
End Sub

Private Sub tmrActive_Timer()
'1. Check waitCount if > 0 then Check ActiveType then Check Delay Time
'2. Check ActiveType  Start -> Load Picture File Get EffectTime Value Goto tmrShow
'         ActiveType  DefaultAction -> SPM File Error or Can't Find,Show Default Message
tmrActive.Enabled = False

If waitCount <> 0 Then
   '略
End If

If ActiveType = Active_Start Then
   picName = ProFile(ActiveNo).PicFile
   EffectBuffer = ProFile(ActiveNo).Effect
   Call LoadImagePicture(ProFile(ActiveNo).FullPicture)
   picPreView.AutoRedraw = True
   Call GetEffectTime

   tmrShow.Enabled = True
ElseIf ActiveType = DefaultAction Then
   lblMessage.Visible = False
   DefaultActNo = DefaultActNo Mod 3 + 1
   
   Select Case DefaultActNo
   Case 1
        Call ShowMessage(CENTER_MIDDLE, 16, DefaultFontName, &HFFFFFF, "如果你是第一次執行Screen Saver Maker的話，請先執行設定，決定播放的螢幕保護程式格式")
   Case 2
        '略
   End Select
   waitCount = 5
   tmrActive.Interval = 1000
   tmrActive.Enabled = True
   Exit Sub
End If
End Sub

Private Sub ShowMessage(Align As Integer, fSize As Integer, fName As String, fColor As Long, StrMes As String)
Dim xWidth As Single
Dim xHeight As Single
Dim xLeft%, xTop%

'1.Set lblMessage's Type ,Get TextWidth & TextHeight
'2.Get Align Type ,Get Top,Left,Width,Height Value

lblMessage.FontSize = fSize
lblMessage.FontName = fName
lblMessage.ForeColor = fColor
lblMessage.Caption = StrMes

Me.FontName = fName
Me.FontSize = lblMessage.FontSize

xWidth = TextWidth(lblMessage.Caption)
xHeight = TextHeight(lblMessage.Caption)

Select Case Align
Case RIGHT_TOP
     If xWidth > (Me.ScaleWidth / 2) Then
        xHeight = xHeight * (xWidth \ (Me.ScaleWidth / 2) + 1)
        xWidth = Me.ScaleWidth / 2
     End If
     xLeft = Me.ScaleWidth - xWidth - 10
     xTop = 10
     
Case LEFT_TOP
     '略
Case CENTER_MIDDLE
     '略
Case RIGHT_BOTTOM
     '略
Case LEFT_BOTTOM
     '略
End Select

lblMessage.Width = xWidth
lblMessage.Height = xHeight
lblMessage.Move xLeft, xTop
lblMessage.Visible = True

End Sub

If loopNo = 1 And picCut = True Then

   'If DestWidth < screenWidth Or DestHeight < screenHeight Then
   If DestWidth < preWidth Or DestHeight < preHeight Then
      Me.AutoRedraw = True
      Me.Picture = LoadResPicture("HPattern08", vbResBitmap)
      DoEvents

      Me.AutoRedraw = False
   End If
End If

If overFlag = True And ActiveType = Active_Start Then
   If Trim$(ProFile(ActiveNo).AddText) <> "" Then
      If lblMessage.Visible = False Then
          Call ShowMessage(ProFile(ActiveNo).TextSet.Alignment, ProFile(ActiveNo).TextSet.Size, ProFile(ActiveNo).TextSet.Name, ProFile(ActiveNo).TextSet.Color, ProFile(ActiveNo).AddText)
      Else
         lblMessage.Visible = True
      End If
   End If

   waitCount = 1
   tmrActive.Interval = 1000
   tmrActive.Enabled = True
End If

If waitCount <> 0 Then
   If ActiveType = DefaultAction Then
      waitCount = waitCount - 1
      
      tmrActive.Interval = 1000
      tmrActive.Enabled = True
      Exit Sub
   End If
   
   If waitCount >= ProFile(ActiveNo).DelayTime Then
      ActiveNo = ActiveNo Mod ActiveSUM + 1
      waitCount = 0
   Else
      waitCount = waitCount + 1
      tmrActive.Interval = 1000
      tmrActive.Enabled = True
      Exit Sub
   End If
End If