expression does not produce a value when calling a sub
问题 i want to call this public sub hungrys(gutom as string) from my zooanimal class to my form1.vb. for reference, please refer to my code. i always get an error "expression does not produce a value" in my Textbox10.text = za.hungrys(gutom as string) Public Class ZooAnimal Public Sub New() hungry = isHungry() Public Function isHungry() As Boolean If age > 0 Then hungry = True End If If age <= 0 Then hungry = False End If Return hungry End Function Public Sub hungrys(ByRef gutom As String) If