Hej

Jag får inte min ena klass att fungera. Klassen ser ut såhär:
<code>
Public Class arvBox
Inherits Box

Public Sub ShowInfo(ByVal graphArea As Graphics)
Dim sb As SolidBrush = New SolidBrush(Color.Red)
Dim st As String = x & " " & y
Dim f As Font = New Font("Arial", 12, FontStyle.Bold)
graphArea.DrawString(st, f, sb, x, y)
End Sub

End Class
</code>

sen min box ser ut såhär:
<code>
Public Class Box
Public x As Integer = 10 'Private
Public y As Integer = 50
Public widthR As Integer = 15
Public heightR As Integer = 15



Public Sub ShowBox(ByVal graphArea As Graphics)
graphArea.DrawRectangle(myPen, x, y, widthR, heightR)
End Sub

End Class
</code>



Nu vill jag att x och y värdet skrivs ut i lådan. Som koden ser ut nu så skrivs inget ut mer än att lådan ritas ut. Hur startar jag då ShowInfo så x och y skrivs ut??


Tacksam för all hjälp