so code is (so far):
Public Function SelectAcColor(ByVal inColor As AcCo.Color) As AcCo.Color
Dim retColor As AcCo.Color = Nothing
If inColor.ColorMethod <> ColorMethod.ByAci Then
Dim ACI As Integer = AcCo.EntityColor.LookUpAci(inColor.Red, inColor.Green, inColor.Blue)
inColor = AcCo.Color.FromColorIndex(ColorMethod.ByAci, ACI)
End If
Dim CD As New AcWi.ColorDialog
CD.Color = inColor 'Set Color
CD.SetDialogTabs(AcWi.ColorDialog.ColorTabs.ACITab)
If CD.ShowDialog = DialogResult.OK Then 'If user clicked OK then
retColor = CD.Color
End If
Return retColor
End Function