需要帮助：关于32位和24位颜色

Question

我有一段256色的代码，但是我不知道怎样才能生成32位色和24位色代码Dim lIndex As Long
Dim R As Long, g As Long, b As Long
Dim rA As Long, gA As Long, bA As Long
Dim L As Long, i As Long   ' Halftone 256 colour palette
   m_iPalette = 256
   ReDim m_tPal(1 To 256) As RGBQUAD
   For b = 0 To &H100 Step &H40
      If b = &H100 Then
         bA = b - 1
      Else
         bA = b
      End If
      For g = 0 To &H100 Step &H40
         If g = &H100 Then
            gA = g - 1
         Else
            gA = g
         End If
         For R = 0 To &H100 Step &H40
            If R = &H100 Then
               rA = R - 1
            Else
               rA = R
            End If
            lIndex = lIndex + 1
            With m_tPal(lIndex)
               .Red = rA: .Green = gA: .Blue = bA
            End With
         Next R
      Next g
   Next b

Answer 1

？？？$%&)(}P}{看不懂%&^%()(&%)