Dim i, j As Integer
Private Sub Command1_Click()
pictuer2.blackcolor = Form1.blackcolor
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Paint()
i = 0: j = 0
Do While i < 27
Picture1(i).blackcolor = RGB((i / 9) * 127, (i Mod 3) * 127)；RGB出现错误
j = j + 1
If j > 3 Then
j = 0
End If
i = i + 1
Loop
End Sub

Private Sub Picture1_Click(Index As Integer)
Picture2.blackcolor = Picture1(Index).BackColor
End Sub

错误提示：必选参数

rgb(red,green,blue),三个参数,你的少了一个