No veo muy claro que intentas hacer, pero si solo quieres poner en verde y activos 6 checkbox de 49 que supongo que estarán indexados del 0 al 48, no necesitas tanto codigo.
Algo así valdría:
Código vb:
Ver originali=0
Do
m = Int(49 * Rnd)
If (chk0(m).Value <> vbChecked) Then
chk0(m).Value = vbChecked
chk0(m).BackColor = vbGreen
i = i + 1
End If
Loop Until (i = 6)