Hiding preview of output in VB

Hi –

I have a strange situation where I’m using David Mans’ Honeybee components (written in VB) and the pattern component displays a Point. Not sure where it’s coming from. I need to override it because it is screwing up ZoomExtents when my definition is open. I tried adding a few lines to override the preview, but it’s still there.

Private Sub RunScript(ByVal _Pattern As String, ByVal _BackColor As Color, ByVal _ForeColor As Color, ByVal _Opacity As Object, ByVal _Bevel As Integer, ByRef T As Object) 
Component.Params.Input(0).Name = "XL Pattern Type"
Component.Params.Input(0).Description = "Input for XL_Pattern_Type component"
Component.Params.Input(1).Name = "Background Color"
Component.Params.Input(1).Description = "Color input for the cell background"
Component.Params.Input(2).Name = "Pattern Color"
Component.Params.Input(2).Description = "Color input for the pattern"
Component.Params.Input(3).Name = "Opacity"
Component.Params.Input(3).Description = "Unitized input where 0 = Opaque and 1 = Transparent. (Does not affect cell color)"
Component.Params.Input(4).Name = "XL Bevel Type"
Component.Params.Input(4).Description = "Input for XL_Bevel_Type component. (Does not affect cell patterns)"

Component.Params.Output(1).Name = "Excel Fill Parameters"
Component.Params.Output(1).Description = "Formatted List of output Fill Parameters"
'Dim prv As IGH_PreviewObject = Component.Params.Output(0)
'prv.Hidden = True
Dim prv2 As IGH_PreviewObject = Component.Params.Output(1)
prv2.Hidden = True

Dim strOut As String

If _Opacity = Nothing Then _Opacity = 0

Dim patt() As String = split(_Pattern, "~")

strOut = CStr(patt(0).trim() & "~" & CStr(CInt(_ForeColor.R) & "," & CInt(_ForeColor.G) & "," & CInt(_ForeColor.B)) & "~" & CStr(CInt(_BackColor.R) & "," & CInt(_BackColor.G) & "," & CInt(_BackColor.B)) & "~" & _Opacity & "~" & _Bevel & "~" & patt(1).trim())

T = strOut
End Sub 

Thoughts?