Private Sub SystemSupported() Dim bSystemSupported As Boolean bSystemSupported = burner.SystemSupported End Sub