Option Explicit
Dim isBegin As Boolean, isAdd As Boolean
Dim i As Integer, j As Integer, k As Integer
Private Declare Function SetPixel Lib "gdi32" _
    (ByVal hdc As Long, _
    ByVal x As Long, ByVal y As Long, _
    ByVal crColor As Long) As Long
 
Private Sub cmdStart_Click()
    Dim hdc As Long
    hdc = pic.hdc
    isBegin = True
    Do
        For j = 0 To 255
            For k = 0 To 255
                SetPixel hdc, j, k, RGB(i, j, k)
            Next k
            DoEvents
        Next j
        If Not isBegin Then Exit Sub
        'SavePicture pic.Image, _
            'App.Path & "\" & CStr(i) & ".bmp"
        pic.Refresh
        DoEvents
        If isAdd Then
            i = i + 1
            If i = 255 Then isAdd = False
        Else
            i = i - 1
            If i = 0 Then isAdd = True
        End If
    Loop
End Sub
 
Private Sub cmdStop_Click()
    isBegin = False
End Sub
 
Private Sub Form_Load()
    isAdd = True
End Sub

Sub Main()
    Dim sCommand() As String
    Dim bTmp       As Byte
    Dim sTmp       As String
    Dim cFile      As Collection
    Dim iNum       As Integer
    Dim sTmp2      As String
    Dim i          As Integer
    Dim j          As Integer
    Dim sTmp3      As String
    Dim bIsAdd     As Boolean
    Set cFile = New Collection
    sCommand = Split(Command, "*") '用*作分隔符，很简单，文件名不能带*，用?也可以
    Open sCommand(0) For Input As #1
    Do Until EOF(1)
        Input #1, sTmp
        iNum = 0
        Do While ((Mid(sTmp, iNum * 9 + 1, 1) = "[") And (Mid(sTmp, (iNum + 1) * 9, 1) = "]"))
            iNum = iNum + 1
        Loop
        sTmp2 = Right(sTmp, Len(sTmp) - 9 * iNum)
        For i = 0 To iNum - 1
            sTmp3 = Mid(sTmp, i * 9 + 2, 7)
            If cFile.Count = 0 Then
                cFile.Add "[" & sTmp3 & "]" & sTmp2
            Else
                bIsAdd = False
                For j = 1 To cFile.Count
                    If Mid(cFile(j), 2, 7) > Mid(sTmp, i * 9 + 2, 7) Then
                        cFile.Add "[" & sTmp3 & "]" & sTmp2, , j
                        bIsAdd = True
                        Exit For
                    End If
                Next j
                If Not bIsAdd Then cFile.Add "[" & sTmp3 & "]" & sTmp2
            End If
        Next i
    Loop
    Close #1
    Open sCommand(1) For Output As #1
    For i = 1 To cFile.Count
        Print #1, cFile(i)
    Next i
    Close #1
End Sub