Function conversion...

[cnjmorris]

Here is the function along with the errors. I tried looking at the error messages and don't understand what is necessary to make this workable.


Public Sub DoGradient(ByRef FormName As Object)
Dim BF As Object
On Error Resume Next
'============================================================
'
'============================================================
Dim i, y As Short
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.AutoRedraw. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.AutoRedraw = True
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.DrawStyle. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.DrawStyle = 6
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.DrawMode. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.DrawMode = 13
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.DrawWidth. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.DrawWidth = 13
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.ScaleMode. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.ScaleMode = 3
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.ScaleHeight. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.ScaleHeight = 256
For i = 0 To 510
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.Width. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
'UPGRADE_WARNING: Couldn't resolve default property of object FormName.Line. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
FormName.Line((0, y)-(FormName.Width, y + 1), RGB(0, 0, i), BF)
FormName.GetType()
y = y + 1
Next i
End Sub

 

[mutant]

First of all you are trying to use an Object object )) for a form where you should use the Form type unless you are casting the object.
Second, when you change the object type to Form those will show errors because those methods/properties from VB6 are not available in .NET.