'listing 25.7  25LIST07.TXT -- Dwukrotne wywoanie funkcji
Private Sub Command1_Click()
  Ret = FuncName
  Form1.Print "Return Value = " & Ret; " "
  Form1.Print "FuncName = " & FuncName
End Sub

Function FuncName()
  FuncName = 5
End Function
